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SECTION_jk INTROD UCTIO N TO CP-67 


CP-67 is a Control Program designed for execution on an IBM System/360 Model 67. 
Its objective is to create an environment in which many users can simultaneously perf 
“rk and in which each user can perform his own work under the supervision of the 
programming system of his choice. It achieves its objective by generating a virtual 
computer" for each user and by sharing the resources of the real computer (CPU time, main 
storage^ etc.) among the virtual computers for all users that are concurrently logged 

into the system. 

When a user identifies himself from a terminal, the Control Program "creates" for 
his personal use a virtual computer from a predefined configuration. (Before the system 
becomes available to users, the systems administrator defines the configuration of ea h 
user's virtual machine. He may define different configurations for different users ) To 
the user, his virtual computer appears real and he uses it as if it vere . 

Program also provides, as part of the virtual computer, commands that parallel the 
functions of the buttons and switches on an operator's console. The user issues these 
commands from his terminal, and, thus, the terminal becomes a pseudo-console for his 
virtual machine. 

After the Control Program has created the virtual computer, the user equips it with 
the programming system that gives him the desired functional capabilities. He does this 
^issuing a command from his terminal. CP-67 is designed so that the user can run the 
programming system (for example. Operating System/360) of his choice on his virtual 
computer. The user who desires a terminal-oriented, conversational programming system 
that allows him to directly monitor his work will choose CMS. 


MACHINE CO NFI GUR ATION 


DEVICES SUPPORTED BY CP-67 


CP-67 is structured to run on an IBM System/360 Model 67. The minimum machine 
configuration for CP-67 is: 


2067-1 or 2067-2 Processing Unit 
Recommended feature: 

#4434 Floating Storage Addressing (Model 1 only) 


2365 

Processor 

Storage 

1052 

Printer-Keyboard Model 7 

1403 

Printer 


2540 

Card Read 

Punch 


3 2311 Disk Storage Drives or 2314 Direct Access Storage 

Facility (2 drives minimum) 

2400 or 3420 Nine-Track Magnetic Tape Unit, 800 or 1600 bpi 
2702 or 2703 Transmission Control or 
2701 Data Adapter Unit 


TERMINALS SUPPORTED BY CP-67 AS MACHINE OPERATOR'S CONSOLE 

1051/1052 Model 1 or Model 2 Data Communication System 
Fpat.nrss and Specification s: 
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Data Set Attachment (#9114) 

IBM Line Adapter (#4647) 

Receive Interrupt (#6100 or RPQ E27428) required 
Transmit Interrupt (#7900 or RPQ E26903) required 
Text Time-out Suppression (#9698) required 

1056 Card Reader Model 3 

2741-1,-2 Communication Terminals 

Features an d Spe cifications: 

Data Set Attachment (#9114) 

Data Set Attachment (#9115) 

IBM Line Adapter (#4635, #4647) 

Dial-Up (#3255) required 

Receive Interrupt (#4708) required 

Transmit Interrupt (#7900 or RPQ E40681) required 

Print Inhibit (#5501) desirable 


Line control for teletypewriter terminals (*) 
Control Type II Adapter (8-level ASCII code at 


compatible with the IBM Telegraph Terminal 
110 bps). 


TRANSMISSION CONTROL UNITS SUPPORTED BY CP-67 


2701 Data Adapter Unit 


Terminals 


2701 Adapter 


8-level ASCII, 7885 

110 bps* 


2702 Transmission Control 


Terminals 


Terminal 
Control Base 


2741s, 1050 9696 or 7935 

8-level ASCII, 9697 or 7935 
110 bps* 

2703 Transmission Control 


Terminal Line 

Control Adapter 


4615, 9684, 8200** 3233 

7912 3233 


Terminals 


Line Speed Line 
Option Set 


Terminal 

Control 


Line 

Bases 


2741s,1050 4878 

8-level ASCII, 4877 

110 bps* 


3205/6 4619,4696,8200*** 

3205/6 7905, 7912 


7505 

7505 


* The customer is responsible for terminal compatibility with this program. IBM assumes 
no responsibility for the impact that any changes to the IBM-supplied products or 
programs may have on terminals provided by others. 


** Feature 8200 on the 2702 is equivalent to the 2741 Break feature #8055 and the Type I 
Break RPQ E46765 on the 2702. 


*** Feature 8200 on the 2703 is equivalent to the 2741 Break feature #8055 and the Type 
I Break RPQ E53715 on the 2703. 
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OTHER DEVICES SUPPORTED BY CP-67 


Additional devices used by CP-67 are: 

2301 Drum Storage 
2303 Drum Storage 

2870 Multiplexer Channel 

#6990, 6991, 6992 1, 2, 3 Selector Subchannels 


DEVICES USED ONLY BY AN OPERATING SYSTEM IN A VIRTUAL MACHINE AND NOT BY CP-67 

2321 Data Cell Drive 

2400 Magnetic Tape Units 

2250 Display Unit 
2260 Display Station 

2860 Selector Channel 
#1850 Channel-to-Channel Adapter 

2780 Data Transmission Terminal 
1130 Computing System 


VIRTUAL COMPUTERS 


A virtual computing system is a time-sharing system that provides greater 
flexibility of application to the user. A time-sharing system provides a set of software 
facilities through which users share machine facilities; the extent of the software 
facilities available to a user depends on how the system is defined. A virtual computing 
system simulates hardware facilities that allow the user to load a software system 
(Operating System/360, for example) that provides the particular facilities he requires; 
the user - not the system - determines the facilities available to him. 

For each user, CP-67 creates a virtual computer which is an exact replica ofa 
System 360; a programmer at a remote installation can use the computing system as if it 
were exclusively his. CP-67 accomplishes this by: 

• Scheduling and allocating main storage space, CPU time, and I/O devices to the 
virtual computers 


• Handling all interruptions 

• Protecting system files, user programs, and user data during execution 


Keeping statistics on the use and performance of the ''real" system 

CP-67 can simulate a Model 65 or Model 67 (simplex, 24 bit addressing) 
computing system, capable of executing any instruction except Diagnose. 


For direct access storage devices, CP-67 will support more than one "user or 
irtual machine on a pack. This concept is called "mini-disks". Essentially, a 
-irtual machine is allocated a number of contiguous cylinders from the disK pacK, 
md these cylinders can be located starting at any "real" cylinder address. A 
'relocation" factor and "boundary" number define the start and extent of a user s 
'mini-disk". 
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The Control Program shares execution time in the central processing unit (CPU) 
among the virtual computers on a demand basis and on a scheduled basis. The Control. 
Program schedules and allots units of CPU time to the virtual computers. When a 
particular virtual computer has used up its unit of time, the Control Proqram 
locates the next "runnable" virtual computer and passes control to it for a 
corresponding interval of time. If the virtual computer currently in control must 
wait for some event, the Control Program gives control to another virtual computer 
which has demanded the CPU. 


PROGRAM states 


When instructions in the Control Program (CP—67) are bein 
computer is in the supervisor state; at all other times, 
machines, it is in the problem state. Therefore, privileged 
executed only by the Control Program. Programs running on a 
issue privileged instructions; such an instruction causes an 
handled by the Control Program. Under certain conditions, 
simulates the virtual privileged instructions. 


g executed, the real 
when running virtual 
instructions can be 
virtual computer can 
interruption that is 
the Control Program 


PAGING 


Paging is the technique used by the Control 
concurrent users. The objective of this techni 
those portions of each user’s program that are 
This eliminates the need for the programmer to 
manageable units. The units automatically used 
"pages". By breaking programs into pages, mai 
increments, and pages can be loaded dynamically 
time, main storage holds only the active part of 


Program to share main storage among 
gue is to keep in main storage only 
required at a given point in time, 
externally segment each program into 
by CP-67 are 4096-byte blocks called 
n storage can be allocated in page 
for execution. Thus, at execution 
each user's program. 


When a user starts his session, the Control Program, as a result of an IPL 
operation (see the description of IPL under "Console Function Subroutines" in 
Section 2) places the user's programming system IPL program into main storaqe. The 
page is loaded into an available block of main storage that starts on a page 
boundary. The page is not necessarily loaded at the same relative main storage 
position as it would occupy were the programming system running on a real computer. 
This is possible because of the dynamic address relocation abilities of the Model 
6 7„ (Refer to IBM_System/360 Model_.67jL Func ti onal Characteristics,, A27-2719.) 


As the user's program is executing, the hardware dynamically converts 
references to relative addresses into actual main storage addresses. When, the 
program refers to an address in a page that is not in main storage, an interruption 
occurs and the Control Program loads the required page into main storage. Then 
execution continues with the referenced addresses being dynamically relocated. 


Because of the dynamic address relocation feature, the pages of a user program 
need not occupy contiguous locations and may be scattered throughout main storaqe 
(see Fxgure 1). Also, because of the high demand for main storage in a 
multiple-user environment, the Control Program shares main storage among the active 
pages of the programming systems of competing users. 
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Figure 1. Sharing Storage Among Concurrent Users 


Finally, when main storage is co 
bring in another page, page swapping 
program in main storage is written ont 
brought into main storage in its place, 
been swapped, and has not been modif 
necessary to write it onto secondary s 
When the particular page that was repl 
secondary storage and swapped with one 


mpletely fi 
occurs. A 
o secondary 
(If the 
ied since 
torage beca 
aced is ag 
that is in 


lied and it 
n appropriate 
storage and 
page to be re 
it was last 
use a copy a 
tain required, 
main storage 


becomes necessary to 
page of one user's 
the required page is 
placed has previously 
swapped, it is not 
lready exists there.) 
it is obtained from 
(see Figure 2). 
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Figure 2. Page Swapping 


The following list contains some statistics on the drums and disks used for 
paging. 

vices 

2301 4096 bytes/record 

2303 4096 bytes/record 

2314 829 bytes/record, 

5 records/page 
2311 829 bytes/record, 

5 records/page 

The following are guidelines for the number of cylinders required for paging virtual 
memory. Note that CP-67 does not allocate pages for virtual memory until each page 
has been referenced. When the first page is referenced, the address of the swapping 
area is put in the control block called the SWPTABLE. These guidelines represent 
the total number of cylinders required if all the pages of 256K virtual memory are 
referenced. 


Number of Cylinders Required 

Vi rtMem ory sj ze D evice Typ e _ for Paging 

256K 2311 8 

256K 2314 3.2 

Figure 3 gives an overview of the paging operation. 


9 records/2 tracks 
1 record/track 
15 records/2 tracks 

4 records/track 


6 


CP-67 Program Logic Manual 






Virtual 

1 

| Hardware 

<IZ>] 

Virtual Program 
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1 and 

Paging 
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| Device 

Device 


Page relocation exception 
program interrupt 


1 


Control Program 


DISPATCH 


PROGINT 

Attempt to dispatch 


Issue TRANS macro 

this user should 


Page in core go to DISPATCH 

be runnable now 


Page not in core 



call PAGTRANS 


QUEV10 (QUERIOL 
Chain IOTASK to 
RCHBLOK 
If channel is free, 
call CHFREE 


1_ 

\ 


_1 

{ 

QUEVIO (CHFREE) 1 


If control unit is 
free, issue SIO 


£ 


PAGTRANS 


Locate core 

table entry 

Set up PAGTABLE, 

CORTABLE,SWPTABLE 

Create IOTASK block 

Set up CCW's to 

read a page 

Call QUERIO 

Increment page 

wait count 

Set up CPEXBLOK 

Chain CPEXBLOK 
to IOTASK 
Go to DISPATCH 


DISPATCH 

Page wait is on 
for this user 
Dispatch another user 


I/O interrupts 
from reading a page 


IOINT 

Locate I/O Task block 
Process interrupts 
Return to program 
that created the 
I/O task, IOTASK 
TASKIRA 
go to DISPATCH 


DISPATCH 

Process CPEXBLOK 
back to PROGINT. 
TRANS macro is 
reexecuted 


| PAGETRANS(WAITPAGE) 

Find user decrement 
page wait count 
Set storage Keys 
from SWPTABLE 
Release IOTASK block 
Call CPSTACK 


TZ 


CPSTACK 


Put CPEXBLOK 
in CPSTACK 


Figure 3. 
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READER/PRINTEE/PONCH INPUT-OUTPU T 


The Control Program simulates card reader, punch, and printer operations 
requested for programs running on virtual computers by using a spooling operation to 
simulate multiple virtual unit record devices. If user A has a program running on a 
virtual machine and wishes to process a card file, that file may be placed in user 
A s virtual card reader in one of two ways. It may be transferred to user A by 
having another user (user B) punch the file into his virtual punch after having used 
the XFER command to indicate that the file should be delivered to user A's virtual 
card reader. It may also be submitted to the machine-room operator, headed by a card 
identifying the user for whom it is intended, and entered by the operator into the 
system. When the operator enters the file (through the real card reader) the 
Control Program converts it to a disk file which is associated with the 
corresponding virtual computer. Then, when a program running on that virtual 
machine issues a start input-output (SIO) instruction to the virtual card reader, 
the Control Program intercepts it, takes the appropriate card image from the disk 
file, and makes it available to the program in the same manner as the real card 
reader would. This process is repeated for each subsequent operation directed to the 
virtual card reader. This process works in reverse for punch and printer operation. 
When a program on a virtual machine wishes to create printer or punch output, it 
issues successive SIO operations to its virtual printer or punch. The Control 
Program intercepts these attempted input-output operations, obtains the print line 
or punched card images, and creates a disk file from them. The disk file is then 
printed or punched on the real devices at a later time when the device is available 
for use. 


OTHER INPUT-OUTP UT 


Other input-output operations issued by programs running on a user's virtual 
machine are converted to real input-output operations by the Control Program. 
Translation consists of four major steps: (1) device address translation, (2) 
command sequence translation with appropriate paging operations, (3) scheduling the 
input-output operation on the real hardware, and (4) receiving and properly 
reflecting the interrupts returning from the input-output operation after beina 
started. * 

During device address translation, the Control Program converts the virtual 
device address associated with the SIO operation to its real equivalent. This 
conversion is required because each virtual device has been mapped to an extent or 
area on an equivalent device on the real computer during system set-up operations. 
T° illustrate how this conversion works, assume that the user has a virtual disk at 
address 190 and that this has been mapped to an extent starting at cylinder 10 on a 
real disk whose label is DISK01. Assume further that at system start-up time it has 
been ascertained that DISK01 is currently mounted on real disk drive 235. If a user 
program issues a write to cylinder 00 track 0 record 1 of the virtual disk 190, the 
Control Program will intercept it and convert it to a write to cylinder 10 track 0 
record 1 of the real disk at 235. Conversion of reads from virtual disks are 
handled similarly. 

During command sequence translation, the Control Program (via CCWTRANS) 
converts the channel command sequence provided by the virtual machine into an 
equivalent real channel command word list. This is required because virtual channel 
command words can refer to contiguous virtual memory space overlapping a page 
boundary. In the real machine, these virtual pages would not necessarily be in 
contiguous real pages, and the channel command word involved must be split (via the 
chain data feature) into two or more channel command words which refer to the real 
core addresses and which perform the same function. Thus the entire virtual CCW 
sequence is translated into an equivalent sequence held in free storage. The 
channel is then run off of the real sequence. Note that this is the source of a 
major restriction in CP-67—channel command sequences may not be modified while the 
input-output operation is in progress. The modifications will not be reflected in 
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real memory, on which the real channel is running. 

If the ISAM option has been chosen during the generation of CP, and a virtual 
machine has been assigned the ISAM option in the directory, certain self-modifying 
I/O sequences will be supported (specifically OS-ISAM). The channel program is 
scanned to determine whether any of the channel command words modify other channel 
command words within this I/O sequence. The channel program is retranslated and 
reexecuted for each channel command word that modifies another channel command word 
within the channel program. (See "CCW Translator - CCWTRANS" for details.) 

The scheduling of the input-output operation is handled by QUEVIO and CHFREE, 
which are discussed elsewhere. They return to the virtual input-output executive 
(VIOEXEC) when the operation is finished. 

The interruption processing is provided by VIOEXEC after initial processing by 
IOINT. The interrupts are unstacked to the user in the same order as they would 
appear in the real machine. UNTRANS is called to convert the addresses returned in 
the channel status word (which refer to the input-output string in real memory) to 
the virtual addresses required by the user. 


Section 1 : Introduction to CP-67 
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This section segments CP-67 
entity. 


into its functional 


units 


and discusses 


each as an 


SYST EM SETUP OPERATIONS 


Before initializing the Control Program, the DIRECT stand-alone utility routine 
must be used to allocate cylinders between permanent file space and temporary 
spooling and paging space. It is assumed that the disk packs involved have been 
formatted and labeled (via the FORMAT utility) into the CP-67 format. 


Input to 
allocation of 
virtual system 
files created 


DIRECT may be 
DASD cylinders 
(DIRECTORY). F 
by DIRECT. 


of two types: (1) 
(ALLOCATE) and (2) 
igure 4 illustrates 


control statements specifying 
control cards defining a user's 
the relationships of tables and 


System 

Residence 

Volume 




System User 

!!'J e Directory 

Directory ( U DIRECT) 

Figure 4. Tables and Files Created by DIRECT 
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CYLINDER ALLOCATION 


DIRECT reads the allocation table from the volume specified in the ALLOCATE 
statement and determines whether temporary or permanent allocation is requested. 

Temporary cylinder allocation (making the cylinders available for temporary 
usage, such as paging and spooling) is indicated by placing an x|00' in the 
corresponding allocation table entry. Permanent cylinder allocation (making 
cylinders available for permanent file residence) is indicated by placing an x'01' 
in the entry. Cylinders to be used as T (temporary) disk space are designated by an 
x'02' while cylinders containing user directories are marked x'04'. 

At the end of an allocation run for a particular volume (indicated by an *EOA* 
statement), cylinder 0 is permanently allocated (for the allocation table itself and 
the label) and an x'OF' is placed in the last allocation table entry. 


ESTABLISHING USER DIRECTORIES 


When a DIRECTORY control statement is read by DIRECT, a system residence volume 
will be created on the unit specified in the control statement. The allocation table 
is read from the system residence volume, and the "owned" list is initialized to 
contain the system residence volume. The owned list, beginning with the first byte 
after the allocation table, contains the VOLIDS of all volumes to be considered 
owned by the Control Program and available for possible temporary allocation. The 
system residence volume VOLID becomes the first entry in the owned list, 

The "system file directory" is created; the system file directory contains 
information (such as file name, volume label, and device position of first record) 
for all files used internally by the Control Program. An entry for the "user 
directory file" (U.DIRECT) is initially placed in the system file directory. 


ADDITIONAL CONTROL STATEMENTS 


After the owned list and the system file directory have been initialized, 
additional control statements which identify users and configure their virtual 
machines are read. The following paragraphs describe the processing performed for 
each record type. 


USER Statement Processing 


USER statements supply identification and accounting information for users of 
CP-67. Before a user directory file entry is created for the USER statement, the 
user machine description file must be opened, and the first four bytes of a new 
machine description entry are reserved for the virtual machine core size. Entries 
are created for USER statements and written onto disk as records in the user 
directory file (U.DIRECT). User directory entries contain the following information 
for each user: 

User's external identification 
User's password 
Accounting information 
User's machine description file name 
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User's privilege class 
User's priority 
User's options 


CORE Statement Processing 


CORE statements define the size of core storage in the virtual machine being 
defined for the user identified in the preceding USER statement. The core size desired 
must be a multiple of 8K (=8192) bytes and may be specified as either "nnnK" or "nnnM". 
The size is entered into the first four bytes of the user's machine description record. 


UNIT Statement Processing 


UNIT statements define virtual devices in the virtual machine being defined for the 
preceding USER card. The following type of information is placed in the user machine 
description file entry (MDENT) for each specified device: 

Virtual device address 

Device type 

Device relocation factor for DflSD devices 
Device bound for DASD devices 

Passwords and status information for device access 


See the description of control block MDENT in Section 4 for details. 


Statement Processing 


OWN statements specify the VOLIDs of volumes to be considered "owned" by the 
Control Program. Each specified VOLID is added to the "owned" list, which is retained 
after the allocation table on cylinder 0 head 0 record 3 of the system residence volume. 
An "owned" volume is any disk on which an allocation table has been written; it contains 
user files and/or temporary spooling and paging areas used by the Control Program. 


*E 0 lj.* and *EOD* Statement Processing 


An *EOU* statement indicates the end of a machine description for a particular user. 
A unique name is generated for the user machine description file (actually a floating 
point number starting at 1.0 and incrementing by 1.0 for each new file), and is placed in 
the corresponding user directory entry. The user machine description file is then 
written onto disk. 

An *EOD* statement indicates the end of input for the user directory creation 
process. The user directory (U.DIRECT), the system file directory, and the system 
residence volume allocation table are written onto the disk to complete DIRECT 
processing. 

Complete specifications for creating the user directory are contained in the CP-67 
0£eE.§tgr2,s .Guide under "Directory Allocation and Creation". 


12 


CP-67 Program Logic Manual 








SYSTEM BACKUP OPERATION VIA CMS DUMP COMMAND 


The CMS Tape Dump command is designed for user virtual machine back-up functions. 
The CMS program, CPDMPRST, is available for both users and the operations.department, to 
back-up 2311 or 2314 disk packs—either minidisks or full volumes containing one or more 
minidisks of varying formats. During dumps, if a bad track is encountered for which an 
alternate track was assigned by the MINIDASD program, the data indicating a bad.track 
will be written on the dump volume. Should the dump volume be restored to the original 
volume that was dumped, the bad track will remain flagged as bad. If the dump volume is 
restored to a volume other than the one originally dumped, the bad track must be 
recovered. This can be accomplished by use of the MINIDASD program in combination with 
the proper operating system utility program to copy files from the old area, or a 
temporary area created by the restore operation, to the newly formatted area. 

The CPDMPRST program is modeled after the stand-alone dump/restore utility program 
of OS/360. 


CONTROL P ROGRA M INI TI A LIZATIO N 


CHKPT PROGRAM 

The I PL sequence reads the CHKPT program from the IPL'ed disk into low core at 
location X'800'. The CHKPT program performs the following functions: 

Examines the CPID word at X'lFC'. If the word contains ''CP67 1 ' or "SHUT", the IPL is 
to a "warm" machine (that is, CP-67 has been running, and accounting information and 
spool file data is available in core); if the CPID word contains anything else, a 
"cold" machine is assumed and the CHKPT program proceeds to the second phase of 
initialization described below. 

For a "warm" machine, the CHKPT program retrieves user accounting data from the 
UTABLES and unpunched accounting cards; gets accounting for dedicated devices; saves 
the system LOGMSG; saves printer, punch, and reader spool file blocks (SFBLOK); and 
saves the spool file delete chain. The data is written on the IPL'ed disk at the 
SYSWRM cylinder. 

If the CPID word contains "CP67", the CHKPT program proceeds to the second phase 
below. If the CPID word contains "SHUT", shutdown messages are printed, and 
processing is completed. 

The second phase of initialization involves reading the SAVECP program and VOLID 
from the IPL'ed disk (records 2 and 3) into high core (X'25000') and transfenng 
control to the RESTORE function of SAVECP. 

SAVECP (RESTORE function) reads the CP-67 nucleus from disk (SYSDNC cylinder) into 
core from X'33D' to X'25000'; control is transfered to the CPINIT program now loaded 
at X'23000 ' . 

See Figure 5 for a diagram of the CHKPT program operation. 
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Figure 5. Flowchart of CHKPT Operation 
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CPINIT PROGRAM 


The CPINIT program performs the following functions: (See Figures 6, 7, and 8 for map of 
Main Storage after IPL and flowcharts of CPINIT and CPSAVE operations.) 

Determines, by examining the CPID word, whether initializing is on a warm machine 
after a disk ABEND dump 

Loads the 360/67 control registers 

Sets the new PSW's 

Computes the real machine core size 

Creates and initializes the CORTABLE at the end of the resident nucleus (size is 
determined by "real" machine size) 

Initializes 35 save areas for CP-67 linkage at the end of the CORTABLE 

Initializes 5 additional save areas for CP-67 linkage during an EXTEND operation 

Determines whether IPL'ed on left or right half of a possible duplex configuration 

Calls FREE and FRET to obtain working free storage area based upon "real" machine 
si ze 

Creates control block for IPL'ed disk allocation table and OWNED list 

Determines availability of all DASD devices defined in the real I/O (RIO) 
configuration; reads VOLID of all available DASD devices; chains allocation tables 
of all available OWNed volumes 

Locates 1052 system console and writes initialization message; if message fails, 
rings alarm, locates emergency console, and initializes for emergency startup 

Calls AUTOLOGON to log in the system operator 

Checks the OWNED list for volumes not mounted and gives messages 
Checks core size for SYSCORE size; gives message if not equal 
Checks for timer in operation 

Prompts operator to set date and time and to specify startup parameters 

For a WARM start, reads the data from the SYSWRM cylinder and restructures the 
LOGMSG and spool file control blocks; chains the accounting information for punching 

Invalidates the SYSWRM data to avoid future erroneous startup 

Gets spooling space and control blocks for a disk dump 

Calls FINDLOG to initialize the error recording 

Commences spooling output if any 

Sets the CPID word to "CP67" 

Runs the system 
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Figure 7. 


Flowchart of 


CPINIT Operation 


(1 of 3) 
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Figure 7. Flowchart of CPINIT Operation (2 of 3) 
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Figure 8. Flowchart of CPSAVE Operation 


Core Table Initialization 


The core table consists of a 16-btye entry for each page (4096 bytes) of real core. 
Each core table entry will point to a corresponding entry in the swap table, which is 
used by core management routines in paging. The physical location of a page in real core 
is determined by the relative location of its corresponding entry in the core table; for 
example, the first core table entry corresponds to the first page of real core. The core 
table entries for the pages which contain the Control Program are locked with an 
identifier of "*cp*" to make them unavailable for paging operations. The remainder of 
the core table entries are initialized to X'00FFFFFF'. 

For a real machine with a 256K main storage, the unused portion of the last Control 
Program page and six additional pages are reserved as a Control Program work area. For 
each additional core box, six more pages are reserved for the larger expected number of 
users. The pages for free storage are also locked and identified with "FREE". 


Allocation Table Chai ning 


The address of the system residence VOLID and of the allocation table for the system 
residence volume is passed to CPINIT by the routine SAVECP. The VOLID and allocation 
table address are entered into the real device control block (RDEVBLOK) for the system 
residence device. 

Each additional real device control block is examined to determine whether the 
corresponding device is mounted. VOLIDs are read from all mounted devices and compared 
against the entries in the OWNED list (obtained from the system residence volume). 
Allocation tables from all owned volumes are read and chained according to device type. 

Figure 9 illustrates the chaining of allocation tables and their relationship to 
real device control blocks. 
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A TT A CH ING A USER TO THE SYSTE M 

(See Figure 10 for an overview diagram.) 

IDENTIFY_Routine 

• ■ . Whe " J;he Control Program receives the initial interrupt from a terminal (normally 

initiated by dialing in on a data-phone) the IDENTIFY routine is entered. IDENTIFY 
performs the following operations: 

Determines the terminal device type (1050 or 2741) and enters the type into the 
multiplexer real device block (MRDEBLOK). 

Writes to the terminal the message "CP-67 Online". 

Places the address of the BREAK routine in the multiplexer interrupt return address 
(MIRA) . 

Puts the terminal line in a state to receive an attention. 


CONSINT Routine 


When the next terminal interrupt occurs, the CONSINT routine receives control (via 
MIRA). CONSINT is also entered whenever the input-output interrupt handler (IOINT) 
determines that a terminal interrupt has occurred from the reguest or attention button on 
the terminal. CONSINT determines whether a user is logged on at the terminal; if not, the 
LOGON routine is called to attach the new user to the system. 


LOGON Routine 


Operations performed by LOGIN are: 

Allocating and initializing the primary user control table (UTABLE). 

Checking the user's external identification (USERID) and password against entries in 
the user directory. 

Allocating and initializing the SEGTABLE, PAGTABLE, and SWPTABLE for the user's 
machine. 


Allocating the UTABLE extension (EXTUTAB) if the virtual machine is a Model 67. 
Creating virtual I/O blocks to describe the user's virtual machine. 

Mapping virtual devices to real devices by chaining virtual device blocks to real 
device blocks. 

Figure 11 indicates the relationships of tables created by the LOGIN routine. When LOGIN 
functions are completed, the user is placed in console function mode with a read on his 
terminal by CONSINT calling BREAK. 
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Figure 10. CP-67 Overview of Attaching a User to the System 
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UTABLE INITIALIZATION 


The primary user control table (UTABLE) contains a description of the 
machine and information on the status of the machine. When a new user 
space is obtained for his UTABLE from free storage, and the following 
entered: 


user’s virtual 
is logged on, 
information is 


The start of the virtual multiplexer device block list (the address of the virtual 
multiplexer block HVDEBLOK created for the user’s terminal device). 


USERID after it has been verified by comparing it against the entries in the user 
directory. 


Virtual machine core size (obtained from the user's machine description file). 


Address of the segment table. 

Address of the first virtual channel 

Address of the UTABLE extension, if 
extended mode (virtual 67). 


block in the 
the virtual 


virtual 

machine 


channel 
has the 


list. 
ability 


to run in 


Segment Table Creation 


LOGIN creates a four-byte segment table entry for each page table generated. The 
segment table entry contains the length and address of its corresponding page table. The 
address of the segment table (aligned on a 64-byte boundary) is placed in the UTABLE. 


The relatio 
tables is illus 
addressability f 
from the beginni 
of the address 
number is used 
beginning of the 
in the segment) 
4096K bytes of s 
a displacement f 


nship of the virtual storage addresses to the segment table and page 
trated in Figure 12. The twelve low-order bits of the address provide 
or 4K bytes of storage (one page); this number is used as a displacement 
ng of the page, as defined by the page table entry. The next eight bits 
provide addressability for 1024K bytes of storage (one segment); this 
to find the appropriate page by providing a displacement from the 
page table (the beginning of a segment is the address of the first page 
. The four high-order bits of the address provide addressability for 
torage; this number is used to find the appropriate segment by providing 
rom the beginning of the segment table. 
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Address 



Figure 12. Virtual Addressing 


Swap Table Creation 


For each page table entry, LOGIN creates a corresponding eight-byte entry in a swap 
table (SWPTABLE) . Whereas a page table entry contains the address of a page when it is 
core resident, a swap table entry contains the DASD address of a page when it is not core 
resident. The DASD address is contained in bytes 4-7 of the swap table entry: bytes 0-3 
contain control information. 


V irtual I/O Block Creatio n 


When page and swap table creation is completed, LOGIN reads entries for I/O devices 
from the user's machine description file. After determining the channel type (selector 
or multiplexer), LOGIN creates the reguired virtual I/O blocks. Figure 13 illustrates 
the relationship of virtual and real I/O blocks. 
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For multiplexer devices, a new virtual multiplexer device block (MVDEBLOK) is 
created and chained to the last created MVDEBLOK. The address of the first MVDEBLOK in 
the chain (the MVDEBLOK for the user's terminal) is entered into the UTABLE. 

For devices attached to selector channels, a virtual device block is created, and, 
if necessary, control unit and channel blocks. 

A pointer to each virtual I/O block that is created is entered in the previous 
block, resulting in a chain (list) of virtual I/O blocks. Virtual device blocks are also 
chained to corresponding real device blocks (see Figure 13). 

LOGON determines the right of access to a virtual DASD device based on information 
contained in the machine description entry of the user directory. 

These rights of access are summarized in Table 1. The normal mode of access to a 
DASD device is read/write. In general, unless overridden by the presence of WRMULT, only 
one user can access a DASD device with write privileges. Any number of users can have 
simultaneous read-only access. The WRMULT parameter results in existing links being 
ignored. The use of WRMULT requires that the virtual machine operating system contain 
the proper data set protection mechanisms; in addition, CMS does not have interlocks. 
Therefore, WRMULT should be used with caution. 

See the CP-6 7 O pe r ator 1 s G uid e under "Directory Creation and Allocation". 
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Table 1. 


Summary of Access Allowed to DASD Devices by LOGIN 


Directory 

Specification 

RDONLY WRMULT 

Existing Links 
to Other 

Virtual Machines 

Access Mode 
Allowed 

Messages 
(see below) 

No 

No 

None 

Read/Write 




Read-only 

Read-only 

1 



Read/Write 

None 

2 

Yes 

No 

None 

Read-only 




Read-only 

Read-only 




Read/Write 

None 

2 

No 

Yes 

None 

Read/Write 




Read-only 

Read/Write 

3 



Read/Write 

Read/Write 

3 

Yes 

Yes 

None 

Read-only 




Read-only 

Read-only 




Read/Write 

Read-only 



1. DEV XXX IN USE BY userid; SET TO R/0 

2. DEV XXX IN USE BY userid; NOT ATTACHED 

3. DEV XXX IN USE BY userid 
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User Accounting Statistics 

In the UTABLE for each virtual machine, three fields are used for time accounting. 

TIMEON is a six-byte field that contains the date and time in packed decimal of user 
login. This is used with logout time and is punched in the user accounting card to 
give connect time. 

TIMEUSED is a fullword binary value that represents all CPU time charged to this 
virtual machine. The time is in extended precision (high resolution) time units and 
includes both user execution time and CP supervisor time executed for this user. 

VTOTTIME is the same as TIMEUSED except that it includes only user CPU execution time. 

In addition there are statistics for user I/O activity. These are: 

VMSSIO - number of selector channel SIO 
VMPNCH - number of virtual "cards" punched 

VMLINS - number of virtual "lines" printed 

VMCRDS - number of virtual "cards" read 

VMPGRD - number of pages read 

Also, there are four words reserved for user data gathering that may be used by the 
installation. These are: 

VMUSER1, VMUSER2, VMUSER3, and VMUSER4 


PROCESSING CONTROL PROGRAM I/O RE2UESTS 

Control Program requested input-output operations can be divided into two general 
categories: (1) those initiated by a user (virtual) I/O request, and (2) those initiated 
by the Control Program itself (for example, paging or spooling requests). The following 
text describes the routines called by the Control Program to perform specific I/O 
operations. Processing required to analyze virtual I/O requests and to translate them to 
specific real operations is discussed later in this section under "Processing User 
Selector Channel I/O Requests" and "Processing User Multiplexer Channel I/O Requests . 
See Figure 14 for a flowchart of I/O Interrupt Handler operation. 
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Figure 14. 


Flowchart of I/O 


Interrupt Handler Operation 
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REAL MULTIPLEXER CHANNEL I/O OPERATIONS 


The multiplexer real I/O executive (MRIOEXEC) is entered whenever an interruption 
occurs on a unit record device (printer, card reader, or card punch) attached to a 
multiplexer channel. It is also called by the multiplexer virtual I/O executive routine 
(MVIOEXEC) to perform printer or punch input—output operations. MRIOEXEC determines the 
interrupting device type and performs appropriate processing. See Figure 15 for 
processing in the MRIOEXEC module. 
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Figure 15. Processing in the MRIOEXEC Module (1 of 2) 
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Card Reader Inter rupt ion 


To perform I/O operations on a card reader, MRIOEXEC reads card data into a buffer 
(ten cards at a time), compresses the data (by means of the PACK routine), and writes the 
packed records into a "spooling" file on a direct access device. The records will later 
be read from the spooling file by MVIOEXEC. 

If MRIOEXEC is entered as the result of an interruption caused by the unit being 
made ready (that is, initial entry into the routine), the routine obtains an input buffer 
and a spooling buffer, constructs a CCW list to read from the card reader, and issues an 
SIO instruction. 

If the interruption results from a channel end or a unit exception, MRIOEXEC calls 
PACK to compress the input data, and moves the packed data to the spooling buffer. When 
the buffer is full, or at end-of-file, it creates an I/O task block and a CCW list to 
write the buffer to a spooling file on a direct access device. The routine QUERIO is 
called to attach the task block to the appropriate channel block and schedule it for 
service. 

When the buffer has been written to the spooling file, a test is made for an 
end-of-file indication (set when a unit exception interruption occurred, indicating that 
all cards have been read). If the end-of-file flag is on, buffers are returned to free 
storage, and the file is added to the chain of closed files. Reader files are chained off 
the READERS word in MRIOEXEC. 


PEiS.£.§E or P]J£ch Interruption 


To perform I/O operations on a 
spooling file on a direct access 
routine), and prints or punches the 


printer or card punch, MRIOEXEC reads records from a 
device, unpacks the data (by means of the UNPACK 
records on the specified device. 


If MRIOEXEC is entered as the result of an interruption caused by the unit being 
made ready (that is, initial entry into the routine), the routine obtains an I/O task 
block for reading records from a spooling file on a direct access device and a buffer 
area into which these records may be read. Printer and punch processing check the 
PRINTERS and PUNCHES chain respectively to locate a closed file entry (spool file control 
block). PRINTERS and PUNCHES are words in MRIOEXEC. 


If a closed file is available, a message indicating the output device is written to 
the system operator's console by calling the routine WRTCONS. A CCW list for reading 
records from the file is created, the I/O task block is initialized, and the routine 
QUERIO is called to attach and schedule the task block to the appropriate channel queue. 

When records have been read from the spooling file, the routine UNPACK is called to 
unpack the spooled records, the unpacked records are moved to an output buffer, and the 
next group of spooled records is read. When the output buffer is filled, or when the 
spooling file has been completely read (logical end-of-file encountered), an SIO 
instruction is issued for the appropriate device (printer or punch). 

When a file has been completely written out, or if no closed spooling file was 
available, MRIOEXEC processes requests for unspooled punch output. Unspooled punch 
output requests are initiated by the Control Program (typically for accounting 
information cards) and are added to a MREALIO queue by RPUNCH, a subroutine within 
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REAL TERMINAL I/O OPERATIONS 


The routines used by the Control Program to communicate with either the real 
operator's console or a remote terminal are RDCONS for read operations and WRTCONS for 
write operations. RDCONS and WRTCONS prepare CCW lists and i/O task blocks for their 
respective I/O operations, and call STCONSIO to stack and initiate the I/O requests. The 
console interruption handler (CONSINT) receives control when the I/O operation is 
completed. 


Read From a Terminal - HDCONS 


W hen a 
passing in 
register 2 
requested. 


read operation from a terminal is required, the Control Program calls RDCONS, 
register 1 the address of a 132 byte input buffer, and, if required, in 
the parameters for the EDIT and/or UCASE options. EDIT and UCASE options, if 
are processed by the console interruption handler, CONSINT. 


RDCONS obtains storage for and initializes a control list for the read op ®* 
The appropriate I/O device block (MRDEBLOK) is initialized. The address of the MRDEBLOK 
is obtained from the indicated user's virtual console MVDEBLOK. 


An appropriate CCW list is constructed for the type of terminal device, and the 
address of the CCW list is placed in register 6. The EDIT and/or UCASE parameters, if 


present, and the device type are placed in the CCWPKG, 
called. When control is eventually returned to RDCONS 
function, an exit is taken to the calling routine. 


and the routine STCONSIO is 
upon completion of the read 


See Figure 16 for processing in RDCONS module. 
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Figure 16. Processing in RDCONS Module 
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Write to a Terminal - WRTCONS 

When a write operation to a terminal is required, the Control Program calls WRTCONS, 
passing the following information in the indicated registers:- 

GPR 0 - the number of bytes in the output message; 

GPR 1 - the location of the first byte of the output message; 

GPR 2 - the parameters for the PRIORITY, LOGHOLD, LOGDROP, NORET, DFRET, OPERATOR, 

NOAUTO, and ALARM options; 

GPR 11 - the appropriate user's UTABLE address. 

Unless the NORET option was specified, WRTCONS obtains storage for and initializes a 
CPEXBLOK in which will be saved the return address and register contents. The 

appropriate I/O device block (MRDEBLOK) is initialized. If the message is to be written 
to the real operator's console, the current operator's MRDEBLOK is used; otherwise, the 
address of the MRDEBLOK is obtained from the user's UTABLE entry. 

An appropriate CCW list is constructed for the type of terminal device being used 
and for the option. Option parameters, passed to WRTCONS in register 2, are stored in the 
CCWPKG. 

The address of the CCWPKG (CCW list and control list) is placed in register 6, the 

device type and parameters for the DFRET option, if present, are stored in the CCWPKG, 

and the routine STCONS is called. When control is returned to WRTCONS, an exit is taken 
to the calling routine. 

Two alternate entry points, PRIORITY and CLRCONS, are provided for the WRTCONS 

routine. If the routine is entered at PRIORITY, write requests will be created as usual, 
except that the STCONS routine will be entered at PRIMSG, causing the write request to be 
queued on a priority basis. If the routine is entered at CLRCONS, all outstanding 
terminal I/O requests to that user will be deleted. 

See Figure 17 for WRTCONS module processing. 


I ) 
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Figure 17. 


WRTCONS 


Module Processing 
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Stack or Start Terminal I/O Reguests - STCONS 


When a CCW package has been created for a terminal I/O operation, STCONS is called 
to add the I/O request to the chain of pending requests, or to start the operation if no 
other requests are pending. fit entry to STCONS, register 6 contains the address of the 
CCWPKG, and register 11 contains the address of the appropriate user's UTABLE. 

If no other I/O requests are pending, the address of the CCWPKG is placed in the 
channel address word and an SIO instruction is issued. The current I/O request pointer 
is updated to point to the CCWPKG of the active operation, the count of pending I/O 
requests (NCIOREQ) is incremented by 1, and ah exit is taken to the calling routine. If a 
PREPARE command is pending, an HIO instruction is executed. The current I/O request 
pointer is updated to point to the CCWPKG for this operation, the count of pending I/O 
requests (NCIOREQ) is incremented by 1, and an exit is taken to the calling routine. 

If other I/O requests are pending, the CCW package is added to the chain of pending 
requests, the count of pending requests is incremented by 1, and the exit is taken to the 
calling routine. 

If the routine STCONS was entered at the entry point PRIMSG, a priority operation 
has been requested. If other I/O requests are pending, the current CCW package is 
examined to determine the type of operation in progress. If the current operation is a 
read, an HIO instruction is issued, the priority CCW package becomes the current package 
(added at the top of the chain), and the CCW package of the halted operation becomes the 
"next" package (second on the chain). If the current operation is a write, no HIO is 
issued; the priority CCW package becomes the next package (inserted after the current 
package in the chain). In either case, the count of pending requests (NCIOREQ) is 
incremented, and an exit is taken to the calling routine. 

See Figure 18 for STCONS module processing. 


Proc ess ing Ter min al I/ O Inte r rup t io ns - CON SINT 


When an I/O interruption occurs on a terminal, the I/O interruption handler, IOINT, 
receives control and determines the type of interrupting device, obtains the multiplexer 
interruption return address (MIRA) from the MRDEBLOK, and gives control to the terminal 
I/O interruption handler (CONSINT) at the entry point specified by MIRA. 

For an interruption following an output operation, CONSINT performs the following 
processing; 

• If the NORET option is not specified, the routine CPSTACK is called to add an entry 
for the current user to the stack of Control Program execution requests. This entry 
notifies the calling Control Program routine of the completion of the operation. 

• If other terminal requests are pending for this device an SIO instruction is issued 
for the next CCWPKG, and pointers to the "current" and "next" CCWPKGs are updated. 

® Control is returned to the main control routine (DISPATCH). 
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module STCONS > 
entry STCONSIO ) 


module STCONS 
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Figure 18. STCONS Module Processing 
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For an interruption following an input operation, CONSINT perforins the following 

processing: 

• Unless the terminal is a 1052, the message is translated into EBCDIC from line code. 

• If the EDIT option is specified, the input message is scanned, and deletions are 
made as required. 

• If the UCflSE option is specified, the input message is translated to uppercase 
letters. 

• The routine CPSTACK is called to add an entry for the current user to his stack of 
Control Program execution requests. This entry notifies the calling Control Program 
routine of completion of the input operation. 

• If other terminal requests are pending for this device, an SIO instruction is issued 
for the next CCWPKG, and pointers to the "current" and "next" CCWPKGs are updated. 

• Control is returned to DISPATCH. 


REAL SELECTOR CHANNEL OPERATIONS 


The routine QUERIO is called by the Control Program whenever a selector channel I/O 
operation is to be performed. The address of a completed I/O task block is passed to 
QUERIO in register 1. QUERIO indicates that the operation is being requested by the 
Control Program, attaches the task block to the appropriate channel, and tests to see 
whether the channel is free. 


Initiating Selector Channel I/O 

If QUERIO determines that the channel is free, the routine CHFREE is called, with 
the address of the appropriate channel block (RCHBLOK) passed in register 1. CHFREE 
issues an SIO instruction to the indicated channel. The resulting condition code is 
checked and appropriate action taken: 

• For a condition code of 0, the task block is attached to the real device block 
(RDEVBLOK), the task block is unchained from the channel, the task count is 
decremented, and control is returned, through QUERIO, to the routine which requested 
the I/O operation. 

• For a condition code of 1, CSW information is obtained, the condition code is placed 
in register 0, and control is passed to the routine specified in the task 
interruption address (TASKIRA). 

• For a condition code of 2, a retry of the SIO instruction is issued. 

• For a condition code of 3, the task block is unchained from the channel, the task 
count is decremented, the condition code is placed in register 0, and control is 
passed to the routine indicated in TASKIRA. 

Figure 19 shows the processing of I/O tasks on the selector channel and device blocks. 
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P£9_£-®§§iS.3 Selector Channel I/O Interruptions 


When an I/O interruption occurs for a selector channel device, the I/O interruption 
handler, IOINT, receives control. Register 0 is cleared to indicate that an interruption 
has occurred, and control is given to the routine indicated in TASKIRA. When IOINT again 
receives control, control is passed to DISPATCH via a GOTO macro. 


PROCESSING OF I/O ERRORS - IOERROR 


When IOINT passes control to the routine whose address is indicated in TASKIRA, that 
routine issues a CHECKIO macro to check for successful completion of the I/O. If only 
the channel end and device end bits are set in the channel status word, the routine 
concludes that the I/O was successful and continues processing. In all other cases, 
IOERROR is called. When IOERROR receives control, a call is made to the subroutine 
RECERROR, which analyzes and, in some cases, records the error. (For details, see the 
subroutine description of RECERROR below.) 

If the sense information indicates that intervention is reguired, a message is sent 
to the operator indicating the device address and asking "REPLY 'GO' WHEN AVAILABLE OR 
•FAIL' IF NOT AVAILABLE". If the operator replies GO, the I/O operation is retried, 
whereas if the operator replies FAIL, a permanent error is assumed. 

For CP-generated I/O (paging, spooling, and reading the directory), the I/O is 
retried up to 64 times if errors occur. This is accomplished by setting up a special 
retry I/O task consisting of a recalibrate CCW followed by a TIC to the original IOTASK 
block. TASKIRA is set up so that return is to the REPRTN entry point in IOERROR. If the 
I/O completes successfully, control returns to the program which originally generated the 
I/O request. If, on the other hand, the I/O is retried unsuccessfully 64 times, a magor 
error message with error count, sense, and status information is printed at the 
operator's terminal and the system will ABEND. 

Note that the error retry and recording procedure apply only to selector channel 
devices represented by RDEVBLOKS and not to shared unit record equipment or nondedicated 
terminals. 


PROCESSING USER SELECTOR C HANNEL I/O RE QUE S TS 


When a pseudo-supervisor (that is, a supervisor operating in a user's virtual machine) 
requests an I/O operation, a program interruption occurs, and the Control Program must 
determine the tvpe of operation requested and the processing required to honor the 
request. 

The following text describes the major routines involved in honoring user selector 
channel input-output requests. Only the I/O-related operations of the routines will be 
discussed in this section. See Figure 14, CP I/O Interrupt Handler. 


PROGRAM INTERRUPTION HANDLER - PROGINT 

Entrance: PROGINT receives control when a program interruption occurs. 

Operation: PROGINT determines the mode of the user's virtual machine (problem or 

supervisor) and the cause of the program interruption (paging request, invalid 
operation, or privileged operation). 

R ou tin es Call ed: If the program interrupt is caused by a privileged operation that is in 


Section 2: 


Method of Operation 


45 






virtual supervisor mode, PROGINT transfers PRIVLGED to simulate it. 


PRIVILEGED INSTRUCTION SIMULATOR - PRIVLGED 


: PRIVLGED receives control via a GOTO from PROGINT. 

QRgra^i^Ii: For other than I/O instructions, simulation is performed within PRIVLGED. 

PAGTRANS is called to bring in pages not in core that are necessary for the 
privileged instruction simulation. When simulation is finished, exit is taken via 
GOTO to DISPATCH. 

If the privileged operation is an input-output request, PRIVLGED calls the virtual 
machine I/O executive program (VIOEXEC), passing the addresses of the first and 
second halves of the privileged operation in registers 4 and 5 respectively. When 
control is returned from VIOEXEC, an exit is taken to the main dispatcher and 
control routine (DISPATCH), via a GOTO macro instruction. 


VIRTUAL MACHINE I/O EXECUTIVE PROGRAM - VIOEXEC 


(See Figure 20 for VIOEXEC module processing.) 

VIOEXEC receives control from the privileged operation simulator (PRIVLGED) 
when a user-requested I/O operation has caused a program interruption. 

0E§£ati2I>: VIOEXEC determines the type of I/O operation to be executed (SIO,TIO,HIO,TCH) 

and performs appropriate processing for each type. 

For an SIO operation on a selector channel, VIOEXEC: 

Obtains the channel, control unit, and device addresses, and tests for busy or 
status pending conditions on the addressed path. If the addressed channel is 
busy, sets condition code 2 in the virtual PSW and exits. If status is pending 
or the virtual control unit or device is busy, stores the relevant CSW status 
sets condition code 1 and exits. 

Creates an I/O task block, if the path to the device is free, translates the 
virtual channel address word (CAW) into a real CAW 

Calls the CCW translator (CCWTRANS) to translate virtual CCW's to real CCW's 
returning the address of the start of the chain (TASKCAW) 

• Sets the I/O wait indicator in the user's VMSTATUS in UTABLE 

Calls the virtual I/O request gueueing routine, QUEVIO, to queue the I/O task 
block on the appropriate channel 

• Transfers to DSPTCHA (DISPATCH). 

When the I/O operation is started, QUEVIO reflects the condition code to the user, and 
resets the I/O wait indicator to zero. 


For an SIO operation on a multiplexer channel, VIOEXEC: 

Calls the multiplexer virtual I/O executive program (MVIOEXEC) 
• Transfers to DSPTCHA (DISPATCH). 


(See Figure 21 for MVIOEXEC module processing.) 
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VIOEXEC Module Processing (2 of 4) 
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Figure 21. MVIOEXEC Module Processing (2 of 6) 
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Figure 21. MVIOEXEC Module Processing (6 of 6) 
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For a TIO operation, VIOEXEC: 

* Tests the virtual channel for a pending channel end; if found, tests for 
channel end for addressed device. If channel end is found for the device, the 
channel end is cleared, a condition code of 1 is set, the CSW is updated, and 
transfers to DSPTCHA (DISPATCH). If a channel end is found, but not for the 
current device, or if the channel is busy executing for a different device, a 
condition code of 2 is set. If the device is direct access or tape, IOWAIT is 
turned off and control is transferred to DSPTCHD (DISPATCH) to remove the user 
from execution until I/O completion. 

® If a pending channel end is not found, the virtual control unit is tested for 
pending interruptions. If found, a condition code of 1 is set, the CSW is 
updated, and control is returned to PBOGINT. 

® If a pending control unit interruption is not found, the virtual device is 
tested for pending interruptions. If found, the pending interruptions are 
cleared, the device status and the count of pending interruptions are updated, 
a condition code of 1 is set, the CSW is updated, and transfers to DSPTCHA 
(DISPATCH). 

» If a pending device interruption is not found, a condition code of zero is set, 
and transfers to DSPTCHA (DISPATCH). 


For a TCH operation, VIOEXEC: 

O Finds the virtual unit address and the virtual channel block 

® Tests the virtual channel for a pending channel end. If a pending channel end 

is found, a condition code of 1 is set. If the channel is busy, a condition 
code of 2 is set; if not, a condition code of zero is set. 

• Transfers to DSPTCHA (DISPATCH). 


For an HIO operation, VIOEXEC: 

» tf I/O is not in progress on the device and interrupts are not pending, sets a 
condition code indicating that the device is available. 

o Xf I/O is in progress, issues an HIO to the device and reflects the condition 
code to the virtual machine. When the I/O is finished, VIOEXEC sets a condition 
code indicating interrupt pending. 


CCW TRANSLATOR - CCWTRANS 


Entrance: CCWTRANS is called by the virtual machine I/O executive program (VIOEXEC) when 

an I/O task block has been created and a list of virtual CCW's associated with a 
user's S10 reguest must be translated into real CCW's. (See Figure 22 for CCWTRANS 
module processing.) 

CCWTRANS is called by IOINT when the I/O operation is completed from a 
self-modifying channel program. The self-modifying channel program checking portion 
of CCWTRANS calls CCWTRANS when retranslation of CCW's is required. 

Operation: CCWTRANS operates in four phases: a scan phase, a translate phase, a TCC-scan 

phase, and a self-modifying channel program checking scan phase if the ISAM option 
was chosen. 

The scan phase analyzes the virtual CCW list to determine the total core storage 
requirement of the real CCW list. Additional real CCW's are required if the data 
area specified by the virtual CCW list crosses page boundaries. Some channel 
commands require additional doublewords for control information (for example, seek 
addresses). 
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The translation phase reexamines the virtual CCW list and translates it into a 
real CCW list. TIC commands that cannot be immediately translated are flagged for 
later processing by the TIC-scan phase. A read or write command that specifies data 
crossing page boundaries is translated into several CCW's, each specifying data in 
only one page. 

The TIC-scan phase scans the real CCW list for flagged (untranslated) TIC 
commands and creates a new virtual CCW list for the untranslated commands. Scan 
phase processing is then repeated. When all virtual CCW's are translated, the 
virtual CAW in the IOTASK block is replaced by the real CAW (that is, a pointer to 
the real CCW list created by CCWTRANS), and CCWTRANS returns control to VIOEXEC. 
The user protection key is preserved. 

Routines ca lle d: CCWTRANS calls the page handling routine (PAGTRANS), via a TRANS 
macro instruction, to translate virtual addresses to real addresses, and to 
lock in core storage pages required by I/O operations. 

The self-modifying channel program checking portion of CCWTRANS calls CCWTRANS 
to retranslate the channel program and QUEVIO to start the I/O operation. 


OS ISAM HANDLING - CCWTRAN 


Because many of the OS ISAM channel programs are self-modifying, special handling is 
required in CP to allow virtual machines to use this access method. The particular 
CCW's that require special handling have the following general format: 



0 

2 

4 

6 

8 


+- 




-+ 

A 

1 

READDATA C+7 

10 BYTES 

1 



- +- 

-+- 

-^- +- 

-+ 

B 

1 


TIC TO E 


1 



- +- 

---+- 


-+ 

C 

1 



1 

1 


•f- 




-f 

D 

1 




1 


+- 




-+ 

E 

1 

1 

SEEK: SEEK 

HEAD ON D 

1 



- +- 



-+ 

F 

1 


SEARCH ON 

D + 2 

1 



- +- 



-+ 


The CCW at A reads 10 bytes of data, the last byte of which forms the command code 
of the CCW at E. In addition, the data read in forms the seek and search arguments 
for the CCW's at E and F. The normal CP translated CCW string has the following 
format: 

0 2 4 6 8 

+ - ,+ - + - +-+ 

1 | READDATA C+7 10 BYTES | 

+ - - -+- + - + - + 

2 | TIC TO 3 I 

+ - + - +-+-+ 


2A 

3 

4 

5 

6 


+-+---+- - —+——-+ 

| VIRTUAL ADDRESS OF SEEK AT E | 

+ -+---+-+-r + 

1 SEEK: SEEK HEAD ON 6 I 

+ ---+-+-+-+ 

| SEARCH ON D+2 I 

+ -+-+-+-+ 

| ETC. I 

+ - +-+---+-+ 

| RELOCATED SEEK ARG. I 

+ -+-+-+-r + 
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In order to accomplish an efficient and non—timing dependent translated operation 
for OS ISAM, the virtual CCW string is modified in the following manner. 

The ISAM scan phase of CCWTRAN is entered if, during normal translation, a CCW of 
the type at A is encountered. The scan phase locates the TIC at 2 by searching the 
translated CCW strings. The TIC at 2 locates the seek at 3. 

The virtual address of the virtual seek CCW at E is located at 2A. The 4 bytes at E 
and the four bytes at F are saved in the eight byte area at 6. The TIC at 2 is 
altered to TIC to the virtual CCW at E. The CCW address field at E is translated to 
reference D. The 4 bytes at F are modified to a TIC to the CCW's starting at 4. 
The completed CCW string has the following format: 

0 2 4 6 8 

+-+-+-+- - + 

1 I READDATA C+7 10 BYTES | 

+-— +---+-+—--—r-— + 

2 I TIC TO E | 

+-+-+-•- + - + 

+-+-+ — -- + - + 

2A ‘ VIRTUAL ADDRESS OF SEEK AT E j 


3 


4 


5 


6 


A 


B 


C 


D 


E 


F 


VIRTUAL CCW's 

It can be seen that the virtual area C, D, E, and F must reside in one page for the 
routine to function. 

Once the I/O operation has completed, an untranslation scan phase restores the data 
at E and F and sets the correct CSW address if the channel program ended at E. 


+- - + - +-+-+ 

I NOT USED | 

+-+-+- - + 

I SEARCH ON D+2 j 

+“~-+-+-+-— -- + 

I ETC. | 

+-+-+— - + - + 

I SAVED E | SAVED F I 

+-+-+-+- + 

TRANSLATED CCW's 

0 2 4 6 8 

+-+-+-+ - + 

I READDATA C+7 10 BYTES | 

+--—+-— + - + - + 

I TIC TO E | 

+-+-+-+--+ 

I I I 

+---+-+-+—--+ 

I I 

+-+-+-+ - + 

I | SEEK: SEEK HEAD ON D | 

+----+-+-+---+ 

I TIC TO 4 | 

+-+-+ - —+-+ 
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CCW UNTRANSLATOR - UNTRANS 

Entrance: UNTRANS is called by VIOINT when a channel end type of interrupt occurs for a 

user's virtual input-output operation. Its function is to convert the real CSW 
information into corresponding virtual CSW information. 

Operation: The real CCW that caused the interrupt is located from the virtual channel 
~CSW (VCHCSW) , where the real CSW is temporarily stored. Taking into account the 
fact that some of the CCW's may be system-generated and artificially data-chained, a 
virtual CSW is created to represent the CSW that would be expected from the user's 
virtual CCW list(s). 


CCW RETURN TO FREE STORAGE - FREECCW 


Entrance: FREECCW is called when VIOINT determines that the channel has terminated 

operation on a user's virtual list. It returns the real CCW equivalent to the 
virtual list to free storage and clears the TASKCAW entry in the IOTASK block. 

Operation: The real CAW is picked up from TASKCAW, which is an entry in IOTASK_. From 

this, the real CCW list with its "header" information is located. The list is 

scanned. All I/O commands with data references have their referenced pages 

unlocked, and the received data for Read Home Address commands for shared disks is 
unrelocated. When the scanning is complete, the CCW list is returned to free 
storage. 

Routines called: PAGUNLOK is called to unlock the page containing the I/O data area. 


VIRTUAL I/O REQUEST QUEUING ROUTINE - QUEVIO 


Entrance: QUEVIO is called by the virtual machine I/O executive program (VIOEXEC) when 

an I/O task block has been created and a virtual CCW list has been translated into a 
real CCW list. (See Figure 23 for QUEVIO module processing.) 

Operation: When QUEVIO is entered, register 1 contains the address of an I/O task block 

to be queued on a real channel, and register 2 contains the address of the 
appropriate virtual device block. QUEVIO attaches the I/O task block to the 
appropriate channel block, increments the task count, and tests the real channel. 

Routines called: If QUEVIO determines that the channel to which the I/O task block has 

been attached is free, CHFREE is called to start the I/O operation. If the I/O 

operation is successfully started, the I/O task block is unchained from the channel 

block and chained to the real device block. If the I/O operation is not 

successfully started, the I/O task block is unchained from the channel block, and 
the task count is decremented. 

When CHFREE processing is completed, QUEVIO returns control to its caller 
VIOEXEC, after reflecting the SIO condition code to the virtual PSW, and taking the 
user out of IOWAIT. 

Figure 24 illustrates the relationships of routines which process user selector 
channel I/O requests. 


Section 2: Method of Operation 


61 













Figure 23. 


QUEVIO 


Module Processing 


(1 of 2) 
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Figure 23. 


QUEVIO Module Processing (2 of 2) 
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SIO instruction 
program interrupt 



I/O interrupts 
from I/O operation 


Dispatch this user 
if SIO is successful 
(non - IOWAIT) 

If SIO is not successful 
(IOWAIT). dispatch 
another user 


Determines program 
is in supervisor 
mode and privileged 
instruction 


Determines an I/O 
operation attempted 
Call VIOEXEC 
Go to DISPATCH 


I SCANUNIT(VUNITSCN) 


Get VCHBLOK 
VCUBLOK 
VDEVBLOK 


Get CCW list 
Issue TRANS macro 
for CCW pages 
Translate virtual 
CCW's to real CCW's 
Issue TRANS macro 
for user data pages 
and lock pages 


_DISPATCH_ 

Eventually attempts 
to dispatch this user 
User has pending 
interrupts (UTABLE) 
Call UNSTIO 
Attempt to dispatch 
this user, should 
be runnable now 


Compute unit address 

Call VUNITSCN 
If selector channel, control 
unit, and device found and 
free, set BUSY 
Set up IOTASK block 
TASKIRA - VIRA 
Issue TRANS macro 
for CAW page 
Get CCW list 
Call CCWTRANS 
Put user in 
IOWAIT status 


Get RDEVBLOK 
RCUBLOK 
RCHBLOK 

Chain IOTASK to RCHBLOK 
If channel is free, 
call CHFREE 


_IOINJT_ 

Locate IOTASK block 
Process interrupts 
Return to program 
that created the 
IOTASK TASKIRA = 
VIRA 

Go to DISPATCH 


Unstack and 
reflect the 
interrupt 


UNTRANS(FREECCW) 

Scans real CCW list 
to locate and unlock 
user data pages 
Call PAGUNLOK 



_QUEVK) (CHFREE) 

If control unit is 
free, issue SIO 
If SIO is successful, take 
user out of IOWAIT 


I VIOEXEC (VIRA) 


Call UNTRANS 
Call FREECCW 
Set mteirupt pending 
m UTABLE 
Store status in 
VCHBLOK.VCUBLOK 
VDEVBLOK 


Convert real CSW 
to virtual CSW 


For dedicated MPX devices, the MPX blocks 
are restructured as selector blocks, thus the 
MPX device is structured as a selector device 
Therefore the logic flow for selector and 
dedicated MPX devices is the same 


Figure 24. Virtual SIO Selector Channel 
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VIRTUAL CHANNEL INTERRUPTION HANDLER - VIRA 


Entrance: When a user-requested I/O operation is started on a selector channel, the 

interruption return address (TASKIRA) in the I/O task block points to the virtual 
channel interruption handler (VIRA). When the I/O operation is completed and an 
interruption occurs, VIRA receives control from IOINT, the real input-output 
interruption handler. 

Operation: VIRA indicates in the user's control table (UTABLE) that an interruption is 

pendina, and stores status information in the virtual channel block, virtual control 
unit block, and the virtual device block when appropriate. The I/O task block is 
unchained from the real channel block and returned to free storage if the operation 
is complete (that is, channel end and device end or their equivalents occurred). If 
an I/O error has occurred, control is passed to IOERROR. See "Processing of I/O 
Errors - IOERROR". 

Routines called: VIOINT calls the routines IOISTVCU and IOISTVDE (subroutines within the 
real I/O interruption handler) to indicate a control unit end interruption and a 
device end interruption respectively. When VIOINT processing is completed, an exit 
is taken to the main dispatcher and control routine (DISPATCH). 


ROUTINE TO ANALYZE AND RECORD ERRORS - RECERROR 


Entrance: If an I/O error occurs for a user-requested I/O operation on a selector 

channel, VIOINT calls RECERROR to analyze and record the error. 

Operation: RECERROR analyzes the I/O error from information contained in sense byte zero. 
~~ The following types of I/O errors are recorded. 


Bit Position 

Type of Error Counter Number Within Sense Byte 0 


Bus Out Parity 
Equipment Check 
Data Check 
Seek Check 


Counters for each of these types of errors are kept in the RDEVBLOK for each device. 
Note that errors are recorded for dedicated devices operating on a virtual multiplexer 
channel (unit record equipment, virtual 2702s). If the error is the first encountered of 
a given type for a given device, the error is recorded. If the error causes the counter 
to overflow (that is, upon the eighth error of this type for the device), a counter 
overflow error record is written. This error may represent the failure of a completely 
different channel program than the first error of this type which was recorded. If the 
error is neither the first encountered nor a cause of a counter overflow condition, 
control returns to VIOINT, and the error information is reflected back to the user's 
virtual machine. 

The I/O error record has the following 112-byte format: 

ORG LOGDATA DEFINE I/O ERROR RECORD 
LOGSNSE DS CL6 SENSE INFORMATION 

LOGCODE DS CL1 FIRST ENCOUNTERED OR COUNTER OVERFLOW - TYPE OF ERROR 

LOGTYPE DS CL 1 DEVICE TYPE 

LOGVOLID DS CL6 VOLID OF DEVICE (IF AVAILABLE) 

LOGADDR DS CL2 PHYSICAL ADDRESS OF DEVICE 

LOGDATE DS CL6 DATE AND TIME STAMP OF ERROR 

LOGCSW DS CL8 CHANNEL STATUS WORD 
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DS CL2 UNUSED 

LOGCCWS DS 9D FAILING CCW STRING (UP TO NINE DOUBLEWORDS) 

LOGSKLOC DS ID LAST SEEK ADDRESS (DASD ONLY) 

For a 3420 device type (LOGTYPE = X'C4') 24 bytes of sense data are recorded. This 
is done by preserving the 24 sense bytes in the first 3 doublewords at LOGCCWS. The 
remaining 6 double words are used to contain the failing CCW string, up to the last six 
CCW's only. The LOGSNSE field for a 3420 is not used. 


The CCW in the string which failed is flagged with an asterisk in the unused fifth 

byte. 

After the error record is written, the pointer to the next available slot on the CE 
cylinder is updated. Seven logical records are contained within one 829-byte physical 
record. Since 15 records may be written on two tracks of a 2314, up to 1050 error 
records may be written on one cylinder. If the attempt to write the error record fails, 
it is retried eight times. Upon continued failure, an error message IOERROR 

RECORDING FAILURE ON DEV_" is sent to the operator. If there is no more room on the CE 

cylinder for error records, the message »**CECYL FULL; I/O ERRORS NOT RECORDED **" is 
sent to the operator. Errors are not recorded for users with privilege class C in order 
to prevent the recording of intentional errors produced by CE diagnostics. Recording will 
be reinitiated after the CE executes the CLEARIO function. 


MAIN DISPATCHER AND CONTROL ROUTINE - DISPATCH 


■1—: DISPATCH is entered from routines which have completed their processing for a 

user or cannot continue processing until some other process has been completed. 

0£§£ation: DISPATCH checks for pending interruptions and determines which user is to 

receive control next. 

Routines called: When DISPATCH determines that a user is enabled and has an I/O 
interruption pending, the I/O interruption unstacking routine (UNSTIO) is called. 
UNSTIO updates the virtual CSW, restores virtual PSW's, and indicates the address of 
the interrupting device. When UNSTIO processing is completed, DISPATCH attempts to 
restart the current user, (if that user is runnable and if his guantum is not 
exhausted). The SCHEDULE routine is called whenever a user logs on or logs off. When 
a user logs on, the SCHEDULE routine initializes variables for DISPATCH and performs 
real timer maintenance. When a user logs off, the SCHEDULE routine drops the user 
from the gueues of runnable users. The SCHEDULE routine is also called once each 
minute to calculate the total system paging activity (K). 

DISPATCH may be entered at 4 locations: DISPATCH, DSPTCHA, DSPTCHB, and DSPTCHD. 
DISPATCH is the normal entry point used by all routines that are not sure of a 
user's status. DSPTCHA is entered from routines which have gained control after a 
program interrupt for a user and have changed the user's PSW. DSPTCHB is similar to 
DSPTCHA except the PSW is at most changed in its condition code field. DSPTCHD is 
used by routines to drop a user from runnable state after a virtual TIO to a busy 
device. 

The DISPATCH routine: 

• handles queue management for runnable users 

• performs real timer maintenance 

• controls the execution of runnable users 

• unstacks user execution blocks 

• checks user status 

Figures '25-28' illustrate the relationships of routines which process an I/O 
interrupt returned from a selector channel device. 
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Figure 25. Virtual SIO MPX Channel (Nondedicated Punch or Printer) 


Hardware 

Device 

and 

Channel 


Section 2 


Method of operation 


67 






























Virtual Program 

(Simulated 

supervisor 

mode) 


SIO instruction 
program interrupt 


Eventually attempts 
to dispatch this user 
User has pending 
interrupts (UTABLE) 
Call UNSTIO 
Attempts to dispatch 
this user should 
be runnable now 




PROGINT 


Determines program 
is in supervisor 
mode and privileged 
instruction 


Determines an I/O 
operation attempted 
Call VIOEXEC 
Go to DISPATCH 


Unstack and 
reflect the 
interrupts 


Virtual I Hardware 

Machine i Channel 
| and 
i Device 


Control Program 


Spooling 

Device 


I/O interrupts from 
reading spooling buffer 


Compute unit address 
Call MVIOEXEC 


PACK (UNPACK) 


Unpack user CCW 
data 


1 

n 


MVIOEXEC 


_MVIOEXEC (MVINTR) | 

SVC 16 Release 
current save area 
Issue CHECKIO macro I 


Scan MVDEBLOK for 
MPX device 
If device not busy, 
issue TRANS macro 
for CAW page 
If no interrupts pending 
set up normal interrupt 
condition in MVDEBLOK 
for this operation 
Get MVIBUFF set up 
MVIOB TASKIRA=MVINTR 
Issue TRANS macro 
for CCW page 
Get a closed file 
from reader chain 
Call MVIREC 
Call UNPACK 
Issue TRANS macro 
for user pages 
Move data into 
current page 

Set status in MVDEBLOK 
Set interrupt pending 
in UTABLE 

Reset IOWAIT (UTABLE) I 


if 


IOINT 


Locate IOTASK block 
Process interrupts 
Return to program 
that created the I/O 
task IOTASK TASKIRA 


MVIOEXEC (MVIREC) 


Set up CCW's to 
read this buffer 
Call QUERIO 
Set IOWAIT (UTABLE)| 
Go to DISPATCH 


QUEVIO (QUERIO) 


Get RDEVBLOK 
RCUBLOK 
RCHBLOK 

Chain IOTASK TO RCHBLOK 
If channel is free, 
call CHFREE 


H 


DISPATCH 


QUEVIO (CHFREE) 

This user will wait 



for spooling I/O 


free, issue SIO 

operation to complete 


(read spooling buffer) 

Dispatch another user 




Figure 26. Virtual SIO MPX Channel (Nondedicated Header) 
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Figure 28. Real SIO MPX Channel (Reader) 
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PROCESSING USEE MULTIPLEXER CHANNEL I/O BEQ UEST S 


When a pseudo-supervisor (that is, a supervisor operating-in a user's virtual machine) 
requests an I/O operation for a device attached to the multiplexer channel, the program 
interrupt handler (PROGINT), and the virtual machine I/O receive control. (See preceding 
section headed "Processing User Selector Channel I/O Requests".) When VIOEXEC determines 
that an I/O operation has been requested for a device attached to the multiplexer 
channel, the multiplexer virtual I/O executive program (MVIOEXEC) is called. Figures 
'29-32' illustrate the relationships of routines which process user multiplexer channel 
I/O requests. 
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Figure 30. Real Terminal SIO (Read) 
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Figure 31. Virtual Terminal SIO (Write) 
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SIO ON A VIRTUAL MULTIPLEXER CHANNEL 


When MVIOEXEC determines that an SIO operation has been executed, the page handling 
routine (PAGTRANS) is called, via the TRANS macro, to obtain the user's virtual CCW list 
starting address (from the virtual CAW), and an I/O task block and buffer area are 
created. If an interruption (device end or channel end) is pending on the virtual 
device, an indicator is set in the multiplexer virtual device block (MVDEBLOK), and an 
exit is taken to VIOEXEC. 

If no interruptions are pending, MVIOEXEC determines the type of device for which the 
SIO operation is requested. If the device is a printer or card punch, the user's CCW 
data must be packed (via the PACK routine) and placed into a spooling buffer (829 bytes), 
preparatory to being written into a spooling area on a direct access device. If the 
device is a card reader, data will be read from a direct access spooling area into a 
buffer; it must then be unpacked (by means of the UNPACK routine) to be made available to 
the user. 

If the device is a user's terminal, the virtual CCW is saved, and the type of command 
(SENSE,NOP,ALARM,READ, or WRITE) must be determined; special processing is required for 
each command. 


Following is a summary of the processing required for SIO operations for devices 
attached to the multiplexer channel: 


Printer or Punch: For an SIO operation to a printer or card punch, MVIOEXEC does 

the following: 

Initializes MVIBUFF, which contains a buffer for user's packed CCW data, CCW's to 
write the buffer onto a direct access device, and control information. 

Calls PAGTRANS to bring into core the pages which contain the user's CCW data. 

Calls PACK to compress the user's CCW data. 

Enters the packed data into the buffer; when the buffer is filled, it is written 

into a spooling file on a direct access device by calling QUERIO. 

Calls the multiplexer real I/O executive program (MRIOEXEC) to perform the 
input-output operation when the spooling file is closed. (The file may be closed by 
the user including an illegal CCW or issuing a CLOSE command from console 
functions.) If the real printers and punches on the system are busy, the closed 
spooled file is placed in chains starting from PRINTERS or PUNCHES. 

If cp console function XFER had been previously initiated, no real deck is 
punched. Instead, the spooled card deck is set up as an input deck in the virtual 
card reader for the userid specified in the XFER command. 


SIO - Card reader: For an SIO operation on a card reader, MVIOEXEC does the following: 

Initializes MVIBUFF, which contains an area into which the user's packed data will 
be read, CCW's to read the data from a direct access device spooling area, and 
control information. The READER chain on the system is scanned to find a spooled 
file for the user. If none are found, the SIO is indicated to have terminated by an 
intervention-required condition. 

Calls QUERIO to read packed data (80-byte card image records packed into 829-byte 
physical records) from the direct access spooling file associated with the user's 
ID. 

Calls PAGTRANS to bring the required user's pages into core storage. 
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Moves data into the specified area in the user's page(s) . 

SIO - User terminal: 

Sense Command - User terminal: For a SENSE command on a user terminal, MVIOEXEC does the 
following: 

Calls PAGTRANS to determine the address of the area into which the sense information 
will be placed. 

Moves sense information from the multiplexer virtual device block into the provided 
area. 

NOP Command - User terminal: For a NOP command on a user terminal, MVIOEXEC does the 
following: 

Scans virtual CCW flags. If the CC or CD flag is on, the next CCW in the chain is 
examined. 

Indicates a pending multiplexer interruption in the user's UTABLE if neither the CC 
nor the CD flag is on. 

WRITE Command - User terminal: For a WRITE command to a user terminal, MVIOEXEC does the 
following: 

Calls PAGTRANS to obtain the user's pages associated with the I/O transfer. 

Moves the user's data into the output buffer. 

Processes each successive CCW in the chain if the chained data flag is on. All 
chained data is moved into the output buffer. 

Calls WRTCONS to write the data contained in the output buffer on the user's 
terminal. (Control is given to DISPATCH until the real WRITE operation is 
completed.) 

READ Command - User terminal: For a READ command for a user terminal, MVIOEXEC does the 
following: 

Calls FREE to obtain an input buffer. 

Calls RDCONS to read data into the input buffer from the user terminal. (Control is 
given to DISPATCH until the real READ operation is completed.) 

Calls PAGTRANS to obtain the address of the user's pages into which data will be 
placed. 

Moves data from the input buffer to the specified areas in the user's pages. 
Processes virtual CCW flags. 

Processes each successive CCW in the chain if the chained data or chained command 
flag is on. 

ALARM Command - User terminal: For an ALARM command for a user terminal, MVIOEXEC does 
the following: 

Calls WRTCONS to write an "alarm" message on the user terminal (control is given to 
DISPATCH until the ALARM is completed). 

Processes each successive CCW in the chain if the chained data or chained command 
flag is on. 
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MVIOEXEC performs the 


When special processing for each type of command is completed, 
following: 

Checks for command chaining and processes the next command if on. 

Calls PAGTRANS to determine the address of the virtual CSW, stores the virtual CSW, 
and removes the I/O wait indication from the user's UTABLE. 

Calls BREAK if the attention key was activated during a read or write operation. 
Returns control to the virtual machine I/O executive program (VIOEXEC). 


TIO ON A VIRTUAL MULTIPLEXER CHANNEL 


When MVIOEXEC determines that a TIO operation has 
virtual device block (MVDEBLOK) is examined to determine 
end or device end) is pending for the virtual device. 


been requested, the multiplexer 
whether an interruption (channel 


If a channel end interruption is pending, 
the MVDEBLOK. If a device end interruption 
removed, and device end is indicated in 
interruption, a condition code of 1 is set i 
pending, the condition code remains zero. 


the channel end indication is removed from 
is pending, the device end indication is 
the virtual CSW. For either type of 
n the virtual PSW. If no interruptions are 


When the condition code has 


been set, the normal MVIOEXEC exit is taken: 


The virtual CSW is stored 
UTABLE. 

Control is returned to the 


and the I/O wait indication is removed from the user's 
virtual machine I/O executive program (VIOEXEC). 


TCH ON A VIRTUAL MULTIPLEXER CHANNEL 


When MVIOEXEC determines that a TCH operation has been requested, a scan is initiated 

f ° r * n Y ^ * ln - he HVDEBL0K chain which has the same channel address as the argument 

ot the TCH instruction. If no MVDEBLOK is found, condition code 3 ' 
condition code 0 is set. 


is set; otherwise. 


When TCH processing is completed, control 
executive program (VIOEXEC). 


is returned to the virtual machine I/O 


HIO ON A VIRTUAL MULTIPLEXER CHANNEL 


When MVIOEXEC determines that an HIO operation has been requested, 
condition code to zero if there is an interruption pending, and to 
interruption pending. 


it sets the user's 
1 if there is no 


PSEUDO TIMER DEVICE - TIMR 


When MVIOEXEC detects an SIO to a virtual multiplexer device type TYPTIMR, it fills 
in the specified read buffer with the time of day (hh/mm/ss), date (mm/dd/yy), total 
virtual CPU time (VTOTTIME), and total CPU time (TIMEUSED) used since logging in. No 
actual I/O operation is performed, and no real device is associated with this operation. 
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There is no interrupt from this device after the data is transferred. The SIO ends with a 
condition code of zero for a successful operation, or 3 if the pseudo timer does not 
exist in the user's virtual machine configuration. 

Note: When the Pseudo Timer Device (TIMR) is invoked, the specified read buffer must 
reside within the confines of one virtual page. 


PROCESSING DEDICATED MULTIPLEXER DEVICES 

If multiplexer devices are dedicated to a particular user, they are structured and 
handled by CP-67 as though they were selector type devices. Thus a virtual SIO to a 
dedicated printer, for instance, would go through the selector I/O processing logic and 
not through the multiplexer spooling logic. Any CP-67 multiplexer device can be 
dedicated to a user at the time he logs in to CP-67 or through the ATTACH capability. 

When a multiplexer device is attached to a user on a nonshared (dedicated) basis, a 
restructuring of the real and virtual control blocks is required. As an example, suppose 
the operator is attaching the real printer to a user as a dedicated device. The real 
printer is "030" and the virtual address is "00E". The user cannot already have a device 
of address 00E in either his virtual selector devices or multiplexer devices. The real 
multiplexer device block (MRDEBLOK) for the printer 030 is located. If the printer is 
not busy or already attached, the MRDEBLOK is marked as "dedicated". A routine called 
DEDICATE then creates a r ea l selector channel, control unit, and device block for the 
printer, and chains these blocks with the other real blocks (RCHBLOK, RCUBLOK, and 
RDEVBLOK). Then v ir tu al selector channel, control unit, and device blocks are created 
and are linked to the newly created real blocks by VPNTREAL in the VDEVBLOK. Since the 
device is now structured as a selector device, I/O simulation and interrupt handling will 
be as outlined in "Processing User Selector Channel I/O Requests". This structure will 
be maintained until the user detaches the dedicated device or logs out. In either case, 
the logout routine (USEROFF) will detect a dedicated device that was structured using 
DEDICATE and will call RELEASE to free the re al channel, control unit, and device blocks 
and to free (undedicate) the device on the multiplexer (MRDEBLOK) chains. 


PROCESSING VIRTUAL 2702 LINES 


Virtual 2702 lines in a user's machine require special consideration because of the 
nature of the teleprocessing applications that these virtual machines may run. 

For a virtual machine with nondedicated virtual 2702 lines defined in the CP-67 
directory, the virtual I/O blocks are built as selector I/O blocks. Every virtual 2702 
line has its own virtual selector channel, control unit, and device block (VCHBLOK, 
VCUBLOK, and VDEVBLOK). The blocks are structured this way so that a dedicate d 2702 line 
can be linked to them when linkage is initiated by DIAL (see the next section for DIAL 
processing). In order to properly process a DIAL request, the virtual 2702 block must be 
initialized. This is under control of the virtual machine. When the virtual machine 
issues an "enable" sequence to a virtual 2702 line, CP-67 performs all the normal 
handling for a user selector I/O request with one major exception. Since there is no 
real device on which to perform the I/O operation when the "enable" is issued, the IOTASK 
created by VIOEXEC is held waiting for a DIAL request. The user is given the condition 
that the I/O is started, but it will not complete, of course, until a DIAL is handled, 
simulating a call completion. The "enable" CCW is changed to a "write circle C" to 
effect line behavior as though a call had been completed. Any SAD commands are made NOP 
since the real line has already been set by CP-67 and the SAD number could be different 
for virtual machines. The module CCWTRAN detects I/O to virtual 2702 lines and changes 
the "enable" and SAD commands. CCWTRAN also retains the IOTASK (pointed to by VPNTREAL 
in the VDEVBLOK for the virtual 2702 line) and indicates to VIOEXEC (which called 
CCWTRAN) not to call QUEVIO since no real device yet exists. 

Figure 33 illustrates the processing of virtual 2702 lines before and after a DIAL 
console function is issued. 
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processing a dial r equ est 


The DIAL method of attaching to a virtual machine is an alternative to LOGIN with a 
unique userid. After making contact with the computer and receiving the message "CP-67 
online", a user can enter "dial xxxx", where xxxx is the userid of a virtual machine with 
virtual 2702 lines. The DIAL request can be considered as a self-initiated request to 
"attach" the terminal to the desired virtual machine on a, dedicated basis. The module 
DIAL will search for an "enabled" (virtually) 2702 line that is not in use on the 
requested virtual machine. When one is found, DIAL will call DEDICATE to attach the 
terminal that entered "DIAL" to the virtual machine. DEDICATE will mark the terminal 
from the MRDEBLOK chain as dedicated and create re al selector channel, control unit, and 
device blocks. These will be linked to the already existing vir tual selector channel, 
control unit, and device blocks. The I0TASK that was being held (from the "enable" 
sequence) is now allowed to proceed by DIAL calling QUEVIO. I/O interrupts and 
subsequent I/O requests to that virtual 2702 line will now be handled in exactly the same 
fashion as dedicated multiplexer devices. However, in order to expedite the efficient 
handling of dedicated (DIALed) 2702 lines, a further step is taken. In CCKTRAN, 
detection is made when a virtual machine issues a disable to a DIALed 2702 line. When a 
virtual "disable" is detected, CCWTRAN creates a dummy CSW with normal completion and 
calls VIRA to process what appears to be the completion of the "disable"; however, no I/O 
operation is performed. CCWTRAN then calls RELEASE to free the real selector blocks for 
the dedicated 2702 line. RELEASE will set processing in effect to go to OFFHANG in 
CONSINT. OFFHANG writes a message to the terminal indicating that the terminal is now 
under CP-67 control. OFFHANG will then either disable the line and then reenable (as 
done in LOGOUT) or proceed to IDENT2, which will start with "CP-67 online" and then wait 
for a LOGIN or a DIAL (as done in LOGOUT HOLD). The alternative is an installation 
option defined in CONSINT. 

Special handling is also required if the virtual machine with virtual 2702 lines 
either detaches 2702 lines, does an HIO to "dialed" or "enabled" lines, or logs out of 
CP-67. Since "enabled" lines have IOTASK blocks pending, these must be released if the 
virtual line is to be considered no longer active. The VIOEXEC module has special code 
to handle an HIO to an "enabled" 2702 line. VIOEXEC will call VIRA to indicate that the 
"enable" has been halted. HIO to a "dialed" 2702 line is allowed to proceed in the 
normal fashion. The RELEASE module (in USEROFF) also has code to call VIRA, release the 
IOTASK block, and return the device to the MRDEBLOK chain. 


VIRT UAL RP2J.S 

Five special functions are provided by CP-67 to virtual machines; these functions 
either are not available on a real System/360 or normally would require operator 
intervention. 

RPQ Timer - This is a special device type (TIMR) defined in the directory to provide time 
information to a virtual machine. The device can have any address, but for CMS it 
is defined as OFF. The virtual machine issues an SIO to the device with a "read" CCW 
using a 24-byte data area, which must not cross a page boundary. The following 
information is placed in the 24-byte data area. 

Location Data 


0-7 date as MM/DD/YY 

8-15 time as HH.MM.SS 

16-19 value from TIMEUSED 

20-23 value from VTOTTIME 

There is no interrupt from the device after the data transfer. 

Readable punch - This function is provided by the XFER console command. It routes the 
output from a user's spooled card punch to his or another user's spooled card file 
input. This function operates simply by SFBLOK routing. When a user issues CLOSE 
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to a spooled punch, the SFBLOK is chained on the spool READER chain for the XFERed 
userid to read instead of being chained on the PUNCH chain for real punch output. 
The XFER for a printer works in a corresponding fashion. 

Rereadable reader - This function is provided by the SET CARDSAVE ON console command. 
This function is accomplished by exception handling when a spool reader is CLOSEd by 
a user. Instead of scheduling the file for deletion from the spooling space, the 
SFBLOK is maintained on the READER chain so that the file can be reread from the 
beginning. 


Wide 


card reader - There are two types of special spool card readers. The first type is 
a "wide" 2540 reader that allows the user to read more than 80 bytes from one 
"card". For instance, this capability is used by CMS when reading a spool reader, 
since that reader may contain 80-byte "card" files or 132-byte "card" files as a 
result of XFERed printer files. The second type is used to retrieve spool data in 
special format. This type (called RPRT or RPUN) is used to read the CP-67 system 
disk dump, for instance. It is a spooling reader that transfers to the user data 
areas (CCW addresses) up to 825 bytes of packe d spool data. No attempt is made by 
CP-67 to analyze op-codes, lengths, or data. Thus, core dumps on disk can be read 
by a virtual machine having this type of card reader. RPRT is for reading files 
normally scheduled for printer output, and RPUN is for punch output. 


DIAGNOSE - This privileged instruction cannot be simulated or allowed to execute. 
Accordingly, this op-code is used as a means of communication at the programming 
level between a virtual machine and various CP-67 functions. (See "The Diagnose 
Instruction" for a description of each code allowed.) 


INTERRUPTION HANDLING 


Five major types of interruptions must be handled by the Control Program: SVC 
interruptions, external interruptions, program interruptions, machine check 
interruptions, and I/O interruptions. Handling of I/O interruptions is discussed under 
the earlier heading "Processing Control Program I/O Reguests". This section describes 
how the other four types are handled. 


SVC INTERRUPTIONS 


When an SVC interruption occurs, the SVC interruption routine (SVCINT) is entered. If 
the machine is in problem mode, the type of interruption is placed into register 14, and 
the REFLECT routine is called to reflect the interruption back to the pseudo-supervisor 
(that is, the supervisor operating in the user's virtual machine). If the machine is in 
supervisor mode, the SVC interruption code is determined, and a branch is taken to the 
appropriate SVC interruption handler. (See Figure 34 for a flowchart of the SVC Interrupt 
Handler.) 
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Figure 34. Flowchart of the SVC Interrupt Handler 
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SVC 


c„^ I ! POSSible condition or fatal error: If the SVC interruption code is 

SVCDIE routine initiates an ABEND by going to the DSKDUMP routine. 


0, the 


SVC 4 - Reserved for future use. 


SVC 8 Link request (transfer control from calling routine to called routine specified 
by register 15): If the SVC interruption code is 8, the SVCLINK routine saves 
registers, sets up a new save area, inserts the contents of register 15 (the address 
of the routine for which the link is requested) into the SVCOPSW (and register 12), 
saves the old addressability in the save area, saves the old save area address in 
the new save area, and issues an LPSW instruction for the SVCOPSW to restart the 
Control Program at the linked address. 


SVC 12 


2 - Return request (transfer control from called routine to calling routine): If 
S J C * n ^ e “ u P t10 " code is 12, the SVCRET routine is entered to restore registers 
and II (addressability and save area address saved by SVCLINK), places the user's 
return address (also saved in the area) back into the 
to the calling routine by loading the SVCOPSW. 


SVCOPSW, and returns control 


SVC 


16 - Release current save area from the active chain (and thereby also remove linkage 
pointers to the calling routine): If the SVC interruption code is 16, the SVCRLSE 
routine releases the current save area by placing the address of the next higher 
c^nr,en ea m u" re 9 ls ter and returns control to the current routine by loading the 
SVCOPSW. This SVC is used by second level interrupt handlers to bypass returning to 
the first level handler under specific circumstances. 


0 - Obtain a new save area: if the SVC interruption code is 20 the SVCGET routine 
places the address of the next available save area in register 13 and the address of 
the previous save area in the save area pointer field of the current save area. 


There are 35 save-areas initially set up by CPINIT for use by 
In addition, if the supply of available save areas drops to 0, 
call FREE to obtain one. If the supply of available save areas 
operation is in progress, the supply of 'EXTEND' save areas is 
is then called to obtain additional save areas. 


the SVC linkage handlers, 
the linkage handlers will 
drops to 0 and an EXTEND 
used until depleted. FREE 


EXTERNAL INTERRUPTIONS 


When an external interruption occurs, the external interruption handler (EXTINT) is 
entered. (See Figure 35) for an overview of the External Interruption Handler. 

If .EXTINT is entered.because of a timer interruption, the machine mode must be 
determined. if the machine was in wait state, control is transferred to the main 
dispatcher and control routine (DISPATCH), which will become idle until another 
interruption occurs. _ If the machine is in problem mode, the address of the current 
user s UTABLE is obtained from RUNUSER. The user's current PSW (VPSW) is updated from the 
external interruption old PSW (EXOPSW), the address of the current UTABLE is placed in 
register 11, and control is transferred to DISPATCH. 


ifYTiimin 1 N Jv, iS < e ?! erd because of the operation of the console interrupt button 

f0 a l0 '!of g u Step ® ar ® taken ; C) the current system operator is located 
(via REALOP1R), and (2) his virtual machine is disconnected, 
another terminal. The operation of the console 
alternate operator's console. 


He may now log in from 
interrupt button is used to implement an 
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LPSW 

EXOPSW 


_X_ 



Get current 

UTABLE 

(RUNUSER) 


Provide DISPATCH 
with operator to be 
charged time 


Save VGPRS 
and VFPRS 


Update VPSW 
from EXOPSW 


Provide DISPATCH 
with user to 
be charged time 


Go to 
DISPATCH 


Figure 35. Overview of External Interruption Handler 
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PROGRAM INTERRUPTIONS 


When a program interruption occurs, the program interruption handler (PROGINT) is 
entered, (See Figure 36 for an overview of PROGINT.) Program interruptions may result 
from (1) paging reguests, (2) privileged operations (I/O), and (3) privileged operations 
(non-I/O). PROGINT determines the cause of the interruption by examining the 
interruption code. If (3) has occurred, PROGINT transfers control to PRIVLGED. 
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CP-67 Program 


and PRIVLGED Interrupt Handler 
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/Module PRIVI GFD 
Ventry PRIVLGED , 


Put privileged 
instruction in 

USERINST 

(UTABLE) 


Get absolute 
data address 


Get SEGTABLE 
PAGTABLE 
SWPTABLE 


Get diagnose 
code 


Initiate I/O 
operation 


Get absolute 
data address 


Get SEGTABLE 
PAGTABLE 
SWPTABLE 


Get absolute 
address of 
executed 
instruction 


Move new PSW 
to VPSW 
(UTABLE) 


Get key from 
VGPR 


Set invalid 
operation 
code 


Put new 
mask in VPSW 
(UTABLE) 


Read key 
(ISK inst.) 


Go to 
DSPTCHB 


Go to 
DSPTCHA 


Set key 
(SSK inst.) 


Store key 
in VGPR 
(pass key to 
user) 






DATETIME 

r 

Get current 
date and time 


Get the CP-67 

console 

function 


Move date, time, 
VCPU, VTOTTIME 
into VM locations 


Execute the 
CP-67 console 
function 


PRCLASS 
v 3 


Initiate disk 
I/O operation 


PRCLASS 

3 


FMTI LOG 


FMTMLOG 

Format I/O 
error cyl. 


Format M/C 
error cyl. 


Figure 36. CP-67 Program and PRIVLGED Interrupt Handler (2 of 4) 
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Figure 36. 


CP-67 Program and PRIVLGED Interrupt Handler (3 of 4) 
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Figure 36. CP-67 Program and PRIVLGED Interrupt Handler (4 of 4) 
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PAGING INTERRUPTIONS 


If the program interruption is caused by a paging request, and if the interruption 
occurs when a virtual 360/67 is running in extended mode with translation on, a special 
processing takes place. See "Running a Virtual 67" in the CP^67_0peratorIs_Guide. 
Otherwise, PROGINT determines whether a segmentation error (a segment of the program 
missing) has occurred. If the interruption code resulted from a segmentation error, an 
invalid address interruption code is set, and the interruption is reflected to the user's 
virtual machine supervisor. 

If a segmentation error has not occurred, the user's current PSW is updated from the 
program old PSW (PROPSW) , the address of the current UTABLE is placed in register 11, and 
PAGTRANS is called to obtain the required page. When the paging operation is completed, 
control is returned to DISPATCH (see Figure 37 for an overview of PAGTRANS) . 
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Figure 37. 



Overview of PAGTRANS (1 of 4) 
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Figure 37. Overview of PAGTRANS (2 of 4) 
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Figure 37. 



erview of PAGTRANS (3 of 4) 
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Figure 37. 


Overview of PAGTRANS (4 of 4) 
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PRIVILEGED OPERATION INTERRUPTIONS 


If the program interruption is caused by the pseudo-supervisor issuing a privileged 
instruction, PRIVLGED obtains the address of the privileged instruction and determines 
the type of operation requested. 

For I/O instructions, PRIVLGED calls the virtual I/O executive program (VIOEXEC). 
PRIVLGED simulates valid non-I/O privileged instructions and returns control to DISPATCH. 
For invalid privileged instructions, the routine sets an invalid interruption code and 
reflects the interruption to the pseudo-supervisor. 

The non-I/O privileged instructions that are simulated are LPSW, SSH, SSK, ISK, and 
DIAG. For the "Virtual 67" option, the privileged instructions LRA, STMC, and LMC are 
also simulated. 


The Instruction 


The diagnose instruction (DIAG) has special handling under CP-67. The diagnose 
command is used for communication between a virtual machine and the Control Program, 
CP-67. The machine-coded format for the diagnose command is: 


I 83 | HI | R2 | CODE | 


The "CODE" is a base value that is used to select a particular specialized CP function. 
The codes currently assigned and their associated functions are: 


Code Ziillfition 

0 Dump CP core 

4 Fetch CP location 

8 Virtual console function 

C Pseudo timer 

10 Release pages 

14 Reserved for future IBM use 

18 Disk I/O 

1C Clear I/O error recording 

20 Clear M/C error recording 

24-FC Reserved for future IBM use 


Note: User defined DIAG codes: 

X'00' through X'FC' Reserved for IBM use 
X'100' through X'lFC' Reserved for users 

Diagnose codes should always be a multiple of 4. 

See the module PRIVLGED for analysis and/or implementation of these functions. 

The execution of diagnose code 0, dump system, causes a system ABEND by issuing SVC 0 
(dump). This can only be executed by a privilege class A user. The format of the command 
is: 


I 83000000 | 

1_1 
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The execution of diagnose code 4, fetch CP locations, can only be issued by users with 
privilege class A or B. The format of the command is: 


| 83 El B2 0004 | 

R1 contains the virtual address of a list of CP (real) addresses. 

E1+1 contains a count of entries in the list. 

R2 contains the virtual address of the result field that will hold the values 
retrieved from the CP (real) locations. 

The execution of function 8, virtual console function, allows a virtual machine to 
perform CP-67 console functions. The format of the diagnose command is: 


| 83 R1 R2 0008 | 

where R1 is a register that contains the address (virtual) of the CP console function 
command and parameters, and R2 is a register that contains the length of the associated 
console function input, up to 132 characters. The virtual console function command buffer 
must not cross a page boundary. If it should, a specification exception will occur. 


The following 


example 

will 

illustrate the virtual console 


LA 

R6,CPFUNC 


LA 

R10,CPFUNCL 


DC 

X'83',X 1 6A',XL2'0008' 

CPFUNC 

DC 

C ' QUERY FILES' 

CPFUNCL 

EQU 

*-CPFUNC 


function: 


The output of the console function is to the user's terminal, and then execution 
continues. Any valid and authorized console function can be executed in this manner. 


A completion code is returned to the user as a value in the register specified in R2. 
Code 0 is normal, 4 is invalid command, and 8 is bad argument. Other condition codes may 
be used by processing routines in CP-67. LINK, for example, returns several codes to 
indicate device status (see LINK module) . 


Diagnose code C - pseudo timer. The format of the command is: 


| 83 R1 00 00 0C | 

1_1 

R1 contains the virtual address that will receive 24 bytes of data in a format 
identical to the SIO to the pseudo-timer device (for example, 'OFF' in CMS). This 
data is provided by 'diagnose' as a faster method than SIO. 

Diagnose code 10 - release pages. The format of the command is: 


I I 

| 83 R1 R2 0010 | 

r 1 contains the virtual address of the first page to be released and R2 contains the 
virtual address of the last page to be released. Any of the virtual pages in real or 
auxiliary storage are released. 
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Diagnose code 14 - reserved. 

Diagnose code 18 - Disk I/O. The format of the command is: 


| 83 R4 R8 0018 | 

1 _1 

R4 contains the device address of the disk. 

R8 points to a standard CCW chain to Read or Write the disk record of up to 4096 
bytes. 

Standard CCW string: 

SEEK,A,CC,6 
SRCH,A + 2,CC,5 
TIC,*-8,0,0 

RD or WRT,DATA,cc,<4096 
NOP,0,SILI, 1 

A SEEK and SRCH arguments 

The execution of diagnose code 1C, clear I/O recording, can only be issued by a privilege 
class C user. This code calls the FMTILOG routine to clear the I/O error recording data 
on disk. The format of the command is: 


| 8300001C | 

1_1 

The execution of diagnose code 20, clear MC recording, can only be issued by privilege 
class C user. This code calls the FMTMLOG routine to clear the machine check error 
recording data on disk. The format of the command is: 


I I 

| 83000020 | 

i_1 


MACHINE CHECK INTERRUPTIONS 


When a machine check occurs in supervisor mode (CP-67 nucleus), a message is printed 
to the operator, the alarm is rung, and the system will ABEND with a dump. 

When a machine check occurs in problem (user) mode, a message is typed on the 
operator's console, and a message is sent to the affected user. The user's machine is 
placed in console function mode. If the user enters "BEGIN", his machine will take a 
"machine check" by CP loading his machine check new PSW. CP-67 and other users are not 
affected. 


Machine Check Error Recording Routine - 
See Figure 38 for an overview of the 


MCKERR 

Machine 


Check 


Interruption 


Handler. 
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Figure 38. Overview of Machine Check Interruption Handler 


Section 2 


Method of Operation 99 






























ftll machine checks, whether supervisor or problem state, 
first two tracks of the CE cylinder are reserved for machine 
machine check error record is as follows; 


ORG LOGDATA M/C ERROR RECORD 

DS CL6 DATE AND TIME 

Ds CL2 MACHINE CHECK CODE 

D S 22D CPU LOGOUT DATA 

DS 5D OLD PSH's 

DS 16E GENERAL REGISTERS 

DS 16F CONTROL REGISTERS 

DS 4D FP REGISTERS 


Two machine check error records are contained within one physical record* Thus a 
maximum of 30 records may be contained within two tracks of a 2314 SYSRES. When the 
machine check log is full, the message "** CECYL FULL; M/C ERRORS NOT RECORDED **» is 
printed at the operator's terminal, and subsequent machine checks are not recorded until 
CLEARMC is run by the customer engineer. Pointers are kept to the next available slot in 
the log so that machine check errors are recorded sequentially. if an I/O error occurs 
when attempting to write a machine check error record, it is retried eight times. Upon 
continued failure, an error message IOERROR RECORDING FAILURE ON DEV **» is sent 
to the operator. - 


INTE RRU PTION REFLECTION 


When an SVC interruption or a program interruption occurs and 
machine is operating in problem mode, the interruption is reflected 
supervisor (pseudo-supervisor) for handling. 

The program interruption handler (PROGINT), upon determining that the interrupted user 
is operating in problem mode, saves the virtual registers and their old PSW (PROPSW). 

The current PSW is moved into the old PSW, and the interruption code is set. If 
necessary, PAGTRANS is again called to obtain the address of the new PSW, and the new PSW 
is moved into the current PSW. When adjustment of PSW's is complete, control is returned 
to DISPATCH, which will eventually allow the user to resume processing. 

Figure 39 illustrates the processing and reflection of interrupts. 


the user's virtual 
back to the user's 


LOOMDATE 

LOGMCODE 

LOG MCPU 

LOGMPSW 

LOGMGRS 

LOGMCRS 

LOGMFPRS 


are recorded by CP-67. The 
checks. The format of the 
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Real Machine State 


Interrupts 

Real Supervisor State 

Real Problem State 


CP 

Virtual Supervisor 

State 

OS or CMS 

Virtual Problem 

State 

Problem Program 

External 

SVC 

Masked off 

For subroutine 
linkage 

Start another user; end of 50 ms time slice for this user. 

External Virtual interrupts 

Timer simulated 

Reflect interrupt to virtual machine 

Program 

ABEND 

Reflect interrupt to virtual machine 


Privileged 

Not possible 

Simulate instruction 

Do I/O for SIO 

Reflect 

Machine check 

ABEND 

ABEND 

ABEND 

I/O 

Masked off 

Restart channel. 

Record the device status in virtual 
machine description if virtual I/O. 



Reflect on interrupt: 

Current PSW-►Old PSW 

New PSW-► Current PSW 

Set interrupt code; decrement timer; 
timer interrupt if required. 

Figure 39. Processing and Reflecting of Interrupts 
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“All STORAGE MANAGEMENT (P AGI NG) 


The PAGTRANS routine is responsible for satisfying the paging demands placed on the 
system by user programs. It satisfies requests for page access via the TRANS macro from 
various parts of the Control Program, including the program interrupt handler (PROGINT) 
for paging faults, the input-output string handler (CCWTRANS) for user-initiated 
input-output operations, etc. PAGTRANS has the responsibility for freeing up main memory 
space when required, performing the input-output operations necessary to free the space, 
and protecting the system against "paging overload" conditions that may arise during 
periods of peak demand for the memory resource. 

All calls to PAGTRANS are made through the use of the macro instruction TRANS. If 
LOCK is not specified in the TRANS macro and the virtual page is already resident in 
memory, there is no need to call PAGTRANS, and the call is bypassed by the macro 
generation. 


REQUIRED PAGE IN CORE 


When PAGTRANS translates the virtual address (via the LRA instruction) and finds 
that the page containing the address is currently core resident, a test must be made to 
see whether the LOCK option has been specified. (Normally, this will be the case, for the 
TRANS macro would not have generated the call to PAGTRANS for an in-core page if the LOCK 
option was omitted.) If lock is requested for the page, the lock count for that page is 
incremented, and the lock flag is set in the core table entry for that virtual page. 
When the lock flag is set, the page is not available for "swapping" (that is, it will be 
retained in storage until the lock count is reduced to zero and the lock flag is 
cleared). The lock count cannot be greater than 65,535. 

When lock processing is completed (or if LOCK was not requested), a condition code 
of zero is set, the translated address is stored in the calling routine's save area, and 
control is returned to the calling routine. A condition code of zero indicates that the 
address translation was successful and that the specified virtual page is in core. (Note 
that the TRANS macro will automatically perform an LRA instruction after the return from 
PAGTRANS. In some instances, it would be possible for the paging routines to return a 
page as in core and have it chosen for swapping, and therefore nonresident, before the 
actual return to the caller. This is true only in DEFER cases.) 


REQUIRED PAGE NOT IN CORE 


When PAGTRANS translates the virtual address and finds that the page is not core 
resident, the entry for that page in the user's SWPTABLE is found. The SWPTABLE entry 
contains the direct access storage address of the required virtual page. A test is made 
to determine whether the BRING option was specified when PAGTRANS was called. If BRING 
was not specified, a condition code of 1 is set, and control is returned to the calling 
routine. A condition code of 1 indicates that the required page is not in storage. 


REQUIRED PAGE IN TRANSIT 


If the required page is not in core and the BRING option is specified, the transit 
flags in the SWPTABLE entry are examined to determine whether the virtual page is in 
transit (that is, a previous request to read in the page or a request to write the page 
out has not yet been completed.) If the page is in transit, a Control Program execution 
request block (CPEXBLOK) is created and chained to the input-output task block (IOTASK) 
for the pending read or write operation, and PAGEWAIT is indicated in the VMSTATUS entry 
of the user's UTABLE. When the page I/O operation has completed, the CPEXBLOK is added to 
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the CPRQUEST queue, and control is returned 
the PAGEWAIT condition is removed and the 
caller of PAGTRANS. If the operation was a 
PAGTRANS to retest the transit flags. 


to DISPATCH. If the operation was a read, 
CPEXBLOK indicates a return to the initial 
write, the CPEXBLOK indicates a re-enter to 


OBTAINING CORE FOR A PAGING OPERATION 


If the required virtual page is neither in core nor in transit, and the BRING option 
has been specified, PAGTRANS must prepare to read the page into storage. An available 
page of core into which the required virtual page may be read must be found. 

The table used for managing the real machine core allocation is called the CORTABLE. 
There is one 16-byte entry in CORTABLE for each 4096-byte page of real core. See the 
description of the CORTABLE control block for the bit usage. 

Each entry of the CORTABLE is examined in a round-robin manner to determine whether 
the associated page is available for a paging operation. The search begins at the first 
entry after the last selected page. 

The Lock MASK byte must be zero in order to have that page eligible for paging. 

On the first pass each entry is examined, and if either of the following two 
conditions is satisfied, the corresponding page is selected: 

1. An entry with bytes 5-7 equal to X'FFFFFF• (pages not in use by any user). 

2. Neither of the keys for the page has the reference bit set on. 

If the first pass fails to find an eligible page, then on the second pass any entry 
with a Lock MASK of zero is selected, since all such pages are equal candidates for 
selection. Both passes are initiated and terminated at the next entry after the last one 
used. All non-locked pages that are examined and not selected have their reference bits 
turned off. 

If the selected page has a changed bit on, the page must be written to its DASD 
location (that is, swapped) before the new virtual page is read in. The DASD address is 
obtained from the corresponding swap table entry, an input-output task block is created, 
the page table entry for the page is marked "not-in-core", and the IOTASK block is queued 
for execution. 

The address of the page selected for the paging operation is stored in the page 
table, and the not-in-core flag is set in the page table entry. 


READING A REQUIRED PAGE INTO CORE 


When an available page of real core has been found, the page address is stored in 
the page table entry and the not-in-core flag is set. The transit flag is set in the 
corresponding swap table entry, and the transit bit is set in the core table entry. 

The DASD address of the required virtual page is obtained from the SWPTABLE, and an 
IOTASK block and a channel command word (CCW) list for reading the page in are created; 
the routine QUERIO is then called to queue the task to the input-output task list. 

The "recompute" flag is used when a new swapping DASD address is to be used when the 
page is changed. At login time (and at a re-IPL for a virtual machine) the swap table 
entries are all set to the DASD address of a "zeros" page on the CP-67 system residence 
volume. 

The recompute bit is set in each entry by LOGIN so that the page will be assigned an 
appropriate secondary storage location when it is referenced. This process, called 
dynamic page allocation, ensures that only those pages in a user's virtual machine which 
change and must be rewritten are assigned paging space on drum or disk. When a page is to 
be written out for the first time (that is, the recompute bit is set) , a routine called 
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P A G E G B T is called. This routine finds an available location on drum or disk (in that 
sequence) and saves the address of that D6SD location in the SWPTABLE entry for that 
page. This DASD address will be used on all subsequent reads or writes of that page for 
the duration of the user's session. If the user logs out or re-IPL's a system, a routine 
called PAGEREL is called. This routine returns all of the user's paging DASD locations 
to the available pool and resets each SWPTABLE to zeros. Only those user pages which have 
actually been written out to secondary storage (that is, for which the recompute bit is 
off) are reclaimed at PAGEREL time. 


RETURNING CONTROL 

When all other PAGTRANS operations are completed, the used and changed flags are set 
m the SWPTABLE entry for the page being read. If the LOCK option was specified when 
PAGTRANS was called, the lock count is incremented, and the lock flag in the core table 
entry is set. 

If the DEFER option was not specified when PAGTRANS was called, control is returned 
to the calling routine. If the DEFER option was specified, PAGEWAIT is indicated in the 
current user's UTABLE, a Control Program execution request block is created, and a 
pointer to the request block is placed in the IOTASK block which was created to read in 
the required page. Control is then returned to DISPATCH. 

When the page has been read in, the PAGEWAIT bit is reset in the UTABLE, and the 
Control Program execution request block is added to the CPRQUEST queue. The next time 
DISPATCH is entered, the Control Program execution request block will be honored, and 
since the required page is now resident in storage, the completion of the paqinq 
operation will be indicated. 


SHARED PAGES 


When more than one user is using a given operating system such 
reentrant pages, it becomes possible to share those pages among those 
allow CP to share these pages, the operating system must be IPL'd bv 
IPL CMS). 1 


as CMS, which has 
users. In order to 
name (for example. 


When the first user of a shared system issues the IPL command, all the shared pages 
are brought into core and locked to prevent their being swapped out. When a subsequent 
user IPL's the same system, no paging is required, but the PAGTABLE of such a user is set 
to point to the shared pages. 


For store protection of the shared pages, the users are run with protection key = F. 
All shared pages' storage keys are set to zero and all other pages belonging to these 
users have storage keys = F. 


-Note: The module SYSTEM has to be assembled to indicate which of the pages of a given 
system are shareable. If none are so indicated, no pages will be shared. 


FREE STORAGE MANAGE MEN T 


STRACE (4) option must be chosen at system generation time in order to qather 
statistics in FREE/FRET. 

The FREE routine is responsible for the efficient management of free storage, as 
heavily used within CP-67 for I/O tasks, CCW strings, various I/O buffers, and the like. 
It is used, in fact, for practically all such applications except real channel, 
control-unit, device-blocks, the CORTABLE, and the initial allocation of save areas. 

Block sizes of 29 doublewords or less, constituting about 99% of all calls for free 
storage, are grouped into ten subpool sizes, and are handled by very fast LIFO (push down 
stack) logic. 
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Blocks of greater than 29 doublewords are strung off a chained list in the classic 
manner. 

Subpool blocks are generally obtained, when none are available, from the first 
larger sized block at the low sized end of available free storage. Large blocks, on the 
other hand, are obtained from the high—numbered end of the last larger block. This 
p£OC 0 (jure tends to keep the volatile small subpool blocks separated from the large 
blocks, some of which stay in core for much longer periods of time, thus undue 
fragmenting of available core is avoided. 

The various cases of calls to FREE for obtaining free storage, or to FRET for 
returning it, for subpool sizes and large sizes, are handled as follows: 


CALL TO FREE FOR A SUBPOOL SIZE 


SUBPOOL AVAILABLE: If a call for a subpool size is made and a block of the suitable size 
is~available, the block found is detached from the chain, the chain patched to the next 
subpool block of the same size (if any), and the given block returned to the caller. 

SUBPOOL NOT AVAILABLE: If there is no suitable block when a call to FREE is made for a 
subpool size, then the chained list of free storage is searched for a block of equal or 
larger size. The first block of larger or equal storage is used to satisfy the call (an 
equal-size block taking priority), except that blocks within pages previously obtained 
from EXTEND are avoided if at all possible. If no equal or larger block is found, all 
the subpool blocks currently not in use are returned to the main free storage chain, and 
then the free storage chain is again searched for a big enough block to satisfy the call. 
If there is still not a big enough block, then EXTEND is called to obtain another page of 
storage, and the process is repeated to obtain the needed block. 


CALL TO FREE FOR A LARGE BLOCK 


If a call to FREE is made for a block larger than 29 double words, then the chained 
list of free storage is searched for a block of equal or larger size. If an equal size 
block is found it is detached from the chain and given to the caller. If at least one 
larger block is found, the desired block size is split off the high numbered end of the 
last larger block found, and given to the caller. If no equal or larger block is found, 
EXTEND is called to obtain another page of storage, and the above process is repeated (as 
necessary) to obtain the needed block. 


CALL TO FRET FOR A SUBPOOL SIZE 


If a subpool size block is given back via a call to FRET, the block is attached to 
the appropriate subpool chain on a LIFO (push down stack) basis, and return is made to 
the caller. If, however, the block was in a page previously obtained from EXTEND, the 
block is returned to the regular free storage chain instead. 


CALL TO FRET FOR A LARGE BLOCK 


If a block larger than 29 double words is returned via FRET, it is merged 
appropriately into the regular free storage chain. Then, unless exactly one page was 
given back (that is by EXTEND) , a check is made to see if the area given back (after all 
merging has been done) is a page previously obtained from EXTEND. If so, it is returned 
via PAGFRET for use by the remaining programs in CP for their use. 
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The FREE/FEET logic as described above allows the number of pages allotted for main 
storage to breathe" as necessary, expanding via calls to EXTEND when extra pages are 
needed, and contracting via PAGFRET when such pages have all been FRET'd and are no 
longer needed. 


INITIALIZATION 


The number of pages allocated to free storage depends upon the number of core boxes 
upon which CP is running, and is initialized by CPINIT. A special entry FRETR 
FREE/FRET routine is used by CPINIT and EXTEND to return blocks to the 
storage chain regardless of their size. 


in the 
regular free 


EXECDTIO N C ONTRO L 

When an interruption handling routine completes its processing for a user (or cannot 
continue until some other process is completed), it transfers control (via a GOTO macro) 
main dispatcher and control routine (DISPATCH). When control is transferred to the 
DISPATCH routine, register 11 points to the UTABLE for the user just completinq its 
processing. r y 


In addition to its primary 
following related functions. 


task of execution control, DISPATCH performs the 


DISPATCH charges time used within the Control Program to the appropriate user. 
DISPATCH checks the new status of the interrupted user, reflects any pendinq 
interrupts if the user is enabled, and attempts to restart the user, 

DISPATCH processes CPEXBLOKs. It is possible to establish a wait/post condition for 
paging and terminal I/O by stacking a CPEXBLOK. The CPEXBLOK contains the registers 
and the address at which execution should resume. 

DISPATCH performs problem program and supervisor time accounting for the user. 
DISPATCH maintains the decimal and the real time clocks. 

DISPATCH provides a fast dispatch route for special cases. 


USER STATUS CHECKING 


A major function of the dispatcher is to check the status of 


a user after some 


service was performed. An interrupt returns control to the dispatcher. 

Two types of external interrupts transfer control to the dispatcher: 

« Timer interrupt indicating time/slice end for the current user. 

® Button interrupt disconnecting the operator's terminal. 

copyptov ex , t f rnal , inter ^ u P t the dispatcher accounts for the work done, processes stacked 
CPEXBLOKs (if any), and searches for a new user to dispatch. In the case of the button 
interrupt, the interrupted user is charged for the time used up to the point where he was 
interrupted and the operator is charged for the time used to process his interrupt. 

After a problem program interrupt or SVC interrupt, CP is given control. The 
interrupt is reflected to the virtual machine, the time used is charged to the user, and 
the user is dispatched again (via the fast dispatch route). 

When an I/O privileged operation program interrupt occurs in the virtual machine, CP 
is given control to simulate the privileged instruction. The dispatcher then gets 
control.. The dispatcher accounts for the time used and then finds a new user to dispatch 
(while the I/O is performed). 


When 


a non I/O privileged operation program interrupt occurs in the virtual machine. 
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CP is given control to simulate the privileged instruction. The dispatcher is then given 
control. The dispatcher charges the time used to the current user, checks for pending 
interrupts, and returns control (usually via the fast dispatch route) to the virtual 
machine. 

If a page exception occurs, CP initiates the paging operation and gives control to 
the dispatcher. The dispatcher charges the time used to the current user and searches for 
a new user to dispatch. 

After an I/O interrupt is processed, the dispatcher accounts for the time used. The 
interrupted user is charged for the time used up to the point where he was interrupted 
and the user causing the interrupt is charged for the time it took to process the 
interrupt. The interrupt is reflected to the virtual machine, if the VPSW is enabled. 
Then, the dispatcher dispatches either the new or interrupted user. 

When a spooling function is finished, the dispatcher charges the time used to the 
operator and then dispatches a new user. When an I/O interrupt occurs for a terminal, the 
dispatcher waits until the current user is no longer runnable. Then, the dispatcher 
transfers execution control to the proper routine by unstacking the READ/WRITE CPSTACK 
block. The CPSTACK block contains the information needed to give control to the routine 
that initiated the READ/WRITE. The old user is charged for the time he used and the new 
user is charged for the time it took to process the interrupt. 


SCHEDULING EXECUTION 


The dispatcher schedules the execution of users based on the type of resources each 
user reguires and the system resources that are available. System resources are storage 
or CPU time. The dispatcher separates runnable users into two gueues. 

• RUNQ is the execution gueue. 

• ACTQ is the nonexecution gueue. 

The dispatcher only dispatches users from the RUNQ. As system resources become available 
a user may be moved from the ACTQ to the RUNQ. (See Figure 40 for a description of the 
chaining of users in the RUNQ and ACTQ.) 
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X'l 60' 


UTABLE Chain 


In Dispatch 



Figure 40. The Dispatcher Queues 
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EXECUTION QUEUE (BUNO) 


The RUNQ is separated into two sections: 

• Q1 is a queue of interactive users. 

• Q2 is a queue of compute bound users. 

Q2 users are dispatched only when Q1 is empty. 

The users in the Q1 queue require little of the system resources (storaqe or 
execution time) and are qiven the hiqhest priority for dispatchinq. The number of users 
allowed in Q1 at any one time is limited by core size. Each user added to Q1 is put at 
the end of the Q1 section of the RUNQ. 

The number of interactive users concurrently allowed in the execution queue is 
limited only by the amount of storaqe available. 

Maximum Number of 
Core S ize Int eractive Us er s 

256K 3 

512K 6 

768K 9 

10 2 4K 12 

An interactive user is allowed to enter the execution queue independent of the 
number of pages available for paging at the time the user enters the queue. 

A user being dispatched for the first time is put in Ql. A new user is allowed a 

25ms time/slice. If the time/slice end occurs after 25 ms of uninterrupted CPU time, the 

user is classified as a compute bound user. Any user in Ql that has used 300ms of 

cumulative CPU time and needs more CPU time is also classified as a compute bound user. 

The users in Q2 require more of the system resources (especially execution time) 
than the users in Ql. The dispatcher checks that the sum of the projected paging activity 
of a particular user and the current paging activity of the system, does not exceed the 
total paging limits of the system. A user cannot be added to Q2 unless his paging 
requirements fit within the limits of the system. 

The users in Q2 are in order by "age 1 '. When a user is dropped from the execution 
queue a priority number (identifying the time at which he was dropped) is assigned. When 
a user reenters the exectuion queue, his priority number determines his place in the 
queue. Those users who have been waiting the longest are placed at the top of Q2. 


NONEXECUTION QUEUE (ACTQ) 


The ACTQ contains the users who are runnable but are not in the execution queue 
(RUNQ). The users in ACTQ are assigned priorities that determine the order in which they 
may reenter the execution queue. The highest priority is assigned to users ready to be 
dispatched for the first time and to interactive users wishing to reenter the execution 
queue. 

The priority assigned to users in the ACTQ is based on the users previous 
utilization of system resources. This priority was calculated at the time the user was 
dropped from the execution. 
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STATUS OF USEES 


A user may be moved back and forth between 
time/slices of CPU time. Also, a user's priority 
based on his use of system resources. 


the ACTQ and RUNQ as he executes his 
within either ACTQ or RUNQ may change 


It is possible for a user to be in any one 
under the control of the dispatcher. 


of seven different states while he is 


State 

State 1 (SI) 
State 2 (S2) 


State 3 (S3) 


State 4 (S4) 


^§§£Ei£tion 

User is idle. If ATTN is pressed, the user always enters the idle state. 

Users in state 2 are in the nonexecution queue (ACTQ) and are waiting to 
enter the interactive user (Q1) portion of the execution queue (RUNQ). 
Only users classified as interactive or users waiting to execute for the 
first time are in S2. 

Users in state 3 are in the execution queue. These users are users 
executing for the first time or are interactive users. Each user entering 
S3 for the first time is allocated a 25ms time/slice; ail other users are 
allocated 50ms time/slices. 

A user in S4 is in the interactive user portion (Q1) of the execution 
queue (RUNQ) but is waiting for a page of storage or for an I/O operation 
to be completed. 


State 5 (S5) 


State 6 (S6) 


State 7 (S7) 


A user in S5 is in the nonexecution queue (ACTQ) and is waiting to enter 
the compute bound users' portion (Q2) of the execution queue (RUNQ) . Users 
that are compute bound move back and forth between S5 and S6 until they 
finish executing. Also, first .time users who experience a time/slice end 
after 25ms of uninterrupted CPU time are placed in S5. 


Users in state 6 are in the execution queue. These users are in the 
compute bound portion (Q2) or the execution queue (RUNQ). Each user 

a 25ms time/slice; all other 


entering S6 for the first time is allocated 
users are allocated 50ms time slices. 


A user in S7 is in the compute bound user portion (Q2) of the execution 
queue (RUNQ) but is waiting for a page of storage or for an I/O operation 
to be completed. 


Figure 41 describes the relationship of the seven user states within the dispatcher. 
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Figure 41. Seven User States Within the Dispatcher 
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DISPATCHING A NEW USEE 


A new user waiting to be dispatched is given a high priority in the ACTQ (non 
execution queue). A new user is treated as an interactive user. As other interactive 
users finish processing, the interactive users in the ACTQ (State 2) are moved to the Q1 
portion of the RUNQ (State 3). The core size determines the number of interactive users 
allowed in Q1 at one time. 

When a new user enters the Q1 portion of RUNQ, he is given a 25ms time/slice. If the 
time/slice end occurs after 25ms of uninterrupted CPU time, the new user is considered a 
compute bound user and is placed in state 5 (low priority in the ACTQ). If the new user 
is interrupted before using his entire 25ms time/slice, he is put in state 4 to wait for 
the interrupt to be handled, and then returns to state 3. The user is given a 50ms 
time/slice thereafter. As long as the user is interrupted before using his entire 
time/slice, he remains in the interactive portion of the execution gueue (states 3 and 
4). If the user still needs more CPU time after using a total of 300ms CPU time, he is 
classified a compute bound user and enters State 5. 


DROPPING A USER FROM THE EXECUTION QUEUE 


If a user is classified as compute bound, he is dropped from the execution queue and 
placed in the ACTQ waiting to enter the Q2 portion of the execution queue (state 5). A 
user is placed in state 5 if 

• as a new user, he uses the entire 25ms time/slice allotted to him without being 
interrupted. 

as an interactive user, he uses 300ms of CPU time and still requires more CPU time, 
as a compute bound user, he uses 3000ms of CPU time and still requires more CPU 
time. 

A compute bound user is only eligible to enter the Q2 portion of the execution 
queue. Two different priorities determine when a user in state 5 can reenter the 
execution queue. 

1. The priority within the ACTQ determines when the user will next be considered for 
the execution queue. This is called "State 5 queue priority." 

2. Once considered for the execution queue, the user's resource requirements are 
compared with the system resources available at that time. Only users that fit 
within the resource limits of the system are allowed to enter the execution queue. 
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CALCULATING PRIORITY TO REENTER EXECUTION QUEUE 


The State 5 
and enters 
waiting to 
priority. 


Queue Priority is calculated when 
State 5. This priority determines 
be considered for Q2. Figure 42 


a user is dropped from the execute queue 
the position of a user within the ACl’Q 
explains the calculation of the queue 


+ B 


+ C 


+ D 


+ E 


+ F 


The external factor (maximum value allowed 
is 792) 

A = directory priority x 8 


the CPU usage penalty (maximum value allowed 
is 40) 

B = number of time/slice ends x 2 


the aging factor (allowed value range is 
32 - 32,002) 

C = current dispatch priority number 

(this value is incremented by 4 every 
second, and is reset to 32 every 2 hours 
and 13 minutes) 


the excessive overhead penalty (maximum value 
allowed is 30) 

D = % CPU overhead (in excess of 85%) x 2 


the disconnect penalty 
E = 28 (if user disconnected) 


The excessive paging penalty (no penalty 
if PAI < 25) 


F = MINI 130, MAX (0,PAI-25) x 60| 

I _ I 


Note: PAI is the Paging Activity Index and P (p) 
is the number of pageable pages on the real 
system. (See the section "Projecting Paging 
Requirements" for an explanation of these 
terms.) 


=queue 

priority 


Figure 42. Calculating the State 5 Queue Priority 

The queue priority determines a user's position in the State 5 queue. When the user 
reaches the front of the queue, he is tested to see if his requirements can be fulfilled 
by the system. The following section explains this test. 
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PROJECTING PAGING REQUIREMENTS 


A paging activity index (PAI) is associated with each user waiting to enter the Q2 
portion of the execution queue. The PAI is a projection of paging requirements for a 
particular user. The PAI of the contending user, plus the PAI for all in execution users, 
must be less than or equal to the number of pageable pages on the real system, p (p), in 
order for the contending user to enter the execution queue. 


Figure 43 describes the criteria that must be fulfilled before a user can go from state 5 
to state 6. 


I=n 


E '“l * 


PAI 


NEW 


1=1 


The sum of the The paging activity 

paging activity + number of the 
numbers of the contending user 
current in 
execution users 


< P 


< number of 

pageable pages 
of real 
system 


“here: n is the current number of users and PAI (NEW) is 
the paging activity number of the contending user. 


Figure 43. Criteria Calculation Necessary to Enter State 6 

If the PAI of the contending user is greater than the number of pageable pages 
available on the real system, the PAI is reset to one-half the number of pageable paqes 
available on the real system. 


1 

> P then, PAI is reset to the value of - p 
NEW p NEW 2 p 


If the compute bound portion of the execution queue is empty, one user will be 
forced from state 5 into state 6, regardless of the number of pageable pages available. 

The interactive users, although they contribute to the system paging activity 
number, are not tested to see if they fit within the system paging capacity. The system 
core size is the only factor that is considered before an interactive user is added to 
the execution queue. Consequently, it is possible that there will not be enough pages 
left to run even one compute bound user. This is called Q2 lockout. 
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CALCULATING THE PAGING ACTIVITY INDEX (PAI) FOR USERS 


The paging activity index (PAI) is based on the last period in the execution gueue and is 
a function of: 

• The number of page READS and the number of pages resident in core during the period 
in the execution queue. 

• The amount of CPU time used. 

• The amount (K) by which system paging activity exceeds the acceptable level. 
Normally, 16% CPU time spent for paging is acceptable. (See the "Calculating the 
System Paging Activity Index" section for a description of the calculation of K.) 

The PAI is calculated by multiplying the user's total number of page READS by the 
total system paging activity and dividing by the user's productive (nonpaging) CPU time. 


PAI = 
CALC 


I=n 


|V^NUMPAG | + NUMPAG 
l/j I I Q 

1 = 1 


x K 


TIMINQ -(n x PAGTIME) 


where: 
n 

NUMPAG (I) 
NUMPAG (Q) 

K 

TIMINQ 

PAGTIME 


is the number of page READS while in the execution gueue. 

is the number of user pages resident at the Ith READ. 

is the number of user pages resident when the user was dropped from the 
execution queue. 

represents the amount by which the system paging activity exceeds the 
acceptable level. 

is the total amount of time spent in the execution queue, 

is the time it took to process each page READ. 


Then, the new PAI is calculated for the user 


However, 


1 

PAI = PAI + -(PAI -PAI ) 

NEW CALC 4 CALC OLD 

if PAI > P then PAI is reset to the value of 
NEW p NEW 


1 

- P 
2 P 


where: 

P(p) is the total number of pageable pages 

on the real system. 

The PAI (NEW) for each user is the value used to determine if that user can enter 
the Q2 portion of the execution queue the next time he becomes eligible for 
consideration. That is, when the user reaches the front of the state 5 queue, his 
PAI (NEW) (projected paging activity) determines whether or not he is allowed to enter the 
execution queue. 
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CALCULATING THE SYSTEM PAGING ACTIVITY INDEX 


The system paging activity, PA (SYS) , is calculated once every minute and is a 
function of: 

CPU seconds wasted due to PAGEWAIT when users had accumulated pages in core but 
still could not execute. 

CPU time spent for paging when CPU utilization is already high (greater than 75% CPU 
ion). If CPU utilization is less than 75%, the time spent on paging does not 
matter because it is bound to increase system activity. 

The system paging activity is calculated once per minute as follows: 


r -i 
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PA 
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!NOREADSj 
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L L JJ | 
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s 

is 
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number 

of 

SS 

is 
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PAGWAIT (I) 
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of 
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is 
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of 

NUMPAG (J) 

is 
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nu mber 

of 

U 

is 
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number 

of 


page stolen, 
self-steals of pages. 

READs issued. 

wait time at the Ith occurence, 
times the system entered WAIT, 
resident pages for the Jth user 
users in page wait at time I. 


Note: The value of 


MAX , r 0, (CPU - 75) x 4 

L 


T 

x CPU paging costs| 

j 


ranges from 

100 %. 


0% to 100% 


of the CPU paging 


costs as CPU 


utilization ranges from 


75% to 
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The paging activity of the system, PA (SYS), for the last minute is then compared to 
the installation defined acceptable level of paging (the default is 16%). 

The acceptable level of paging is calculated as follows: 


Q2MAX 

PA --(1 min - (PAGEWAIT + PAGCPU) ) 

ACC 100 


where: 

Q2MAX is the percentage of CPU time considered acceptable for paging. The 

installation may set this value via the "SET Q2 n" command or let the 
value default to 16%. 

PAGEWAIT is the time spent waiting for a page of storage. 

PAGCPU is the CPU time spent in paging. 


Both the system paging activity, PA (SYS) , and the acceptable level of paging, 
PA (ACC), for the last minute are used to calculate K. K is calculated once each minute 
and represents the amount by which the system paging activity exceeds the specified 
acceptable level of paging. The calculation of K is as follows: 


K 

NEW 


K 

OLD 


r t 

|PA - PA | 
| SYS ACC | 

+ I-1 

I 1 I 

I—(NOREADS) | 

12 I 

L J 


where: 

K (OLD) 
PA (SYS) 
PA(ACC) 
NCREADS 


is the value of K calculated in the previous minute, 
is the system paging activity just calculated, 
is the acceptable paging level just calculated, 
is the number of page READs issued in the last minute. 


If the new value of K is ever 25% greater than the last value of K, the paging 
activity index (PAI) must be recalculated for each user. Normally, a user's PAI is only 
calculated when he is dropped from the execution queue. 


HANDLING OF A VIRTUAL 67 

Six areas are discussed in this section: 

1. Control blocks 

2. Different format of the PSW 

3. Special processing of the reset function 

4. New instructions 

5. Handling of the virtual dynamic address translation 

6. Restrictions 
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Control Blocks 


EXTUTAB is created at LOGIN time. 

Each time a virtual 67 enters extended PSW, by loading control register 6 with bit 8 
set to 1 (by means of the LMC instruction or STORE X6 console function), space is 
reserved for the shadow segment table and one shadow page table belonging to segment 0. 

If the virtual 67 uses segments 1 to 15, a "copy segment table", an "image segment 
table" and the necessary number of additional shadow page tables will be allocated. 

All those tables, if any, except EXTUTAB, will be returned to free storage each time 
the virtual 67 leaves extended PSW mode by loading control register 6 with bit 8 set to 
0, or by the reset function. 


Dif fer ent F or mat of the PSW 


The format of the PSW in a 360/67 running in extended mode (that is, bit 8 of 
control register 6 set to 1) differs from that of a standard System/360. Contents of 
certain reserved lower core locations are different after an interrupt has occurred (see 
IBM-System/360 Mod el 6 7 Fu ncti onal Ch ara c teristics , A27-2719). The following modules have 
been modified to take into account that difference: 

CFSMAIN PSA 

DISPATCH QUEVIO 

101 NT UNSTIO 

MVIOEXEC VIOEXEC 

PROGINT 


Reset Function 


When a reset function is executed for a virtual 360/67, control register 6 is reset 
to C00000FF, and all the control blocks specified for a 67, except EXTUTAB, are returned 
to free storage. The module affected is RESINT. 


New Instructions 


Among the five new instructions, two are nonprivileged and are executed normally 
(BAS , BASR) , and three are privileged and thus simulated (LRA,LMC,STMC) . 

LRA modifies the condition code and the contents of the first operand register, 
according to the contents of the segment and page tables, which are located in the 
virtual machine core and pointed to by (virtual) control register 0. 

For LMC and STMC, only control registers 0,2,4, and 6 are retained in EXTUTAB; the 
others always contain zeros and cannot be modified by LMC. 

When loading control register 0, a possible data exception is reflected. 

When loading control register 6, bit 8 is examined and the mode (normal or extended) 
is set according to its contents. 

The module affected is PRIVLGED. 
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Handling Virtua l Dynamic A ddress Transla tion 


In this description the following terminology is used: 

F irst level me mory: The memory of the real 360/67. 

S econd level memory : The memory of a virtual 360/67. 

Third level m emo ry : The memory of a virtual machine running under the virtual 360/67. 

Shadow segment_and_£age_tables: Segment and page tables used by the real machine. When CP 
gives~control _ to a virtual 67 running in extended mode with translation on, these tables 
(in first level memory) will describe the third level memory and will be used to control 
the real address translation hardware. 

Copy_segment_table: A copy, in first level memory, of the segment table, in second level 
memoryT used by the virtual 67 when running in extended mode with translation on. 

Il§ae_§eaient_table: A copy, in first level memory, of the shadow segment table, with 00 
in the first byte of each entry, and bit 31 set to 1 (unavailable bit) in each entry. 

Honosegment_machine: A virtual 67 in which segments 1 through 15 are not used. 

Multisegment_machine: A virtual 67 which has already used at least one segment other 
than segment 0. 

For example, a virtual 360/67 running CP-67 and generating any number of virtual 
machines will be a monosegment machine so long as all these virtual machines use a core 
size less than or egual to one megabyte. That machine will become (dynamically) a 
multisegment machine as soon as it runs a virtual machine using more than one megabyte. 
Monosegment virtual machines are handled with much less overhead than multisegment 
virtual machines. 

Each time CP-67 gives control (by means of DISPATCH) to a virtual 67 running in 
extended mode and with the translation control bit on, it checks the validity of the 
shadow tables: if those tables have been invalidated by a previous loading of control 
register 0 or by a previous paging interrupt, the following steps are taken: 

1. For a multisegment machine, a copy of the actual segment table is brought from second 
level memory into the copy segtable. 

For a monosegment machine, the first entry of the actual segment table is brought from 
second level memory into IMAGESGT, and the size of the actual third level memory is 
updated into COPYSEGT. 

2. For a multisegment machine, the image segment table is copied into the shadow segment 
table in order to reset it quickly with all the entries flagged with the unavailable 
bit on. 

For a monosegment machine the single shadow page table is reset with the first n 
entries flagged with the unavailable bit on, n being the page table length. 


If the shadow tables have been invalidated because a page of the virtual 67 has been 
removed from first level memory, only Step 2 is taken. (See Figures 44 and 45) 
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Second Level Memory 


Fust Level Memory 


Page Table 




VCR 0 

VCR 2 


VCR 4 

VCR 6 


SHADVCR0 



COPYSEGT 

IMAGESGT 



Shadow Segment 
Table 


Note. COPYSEGT contains the length of the actual thud level memory si/e 
available (computed from the page table length), and IMAGESGT 
contains the first entry of the virtual segment table, brought from the 
second level memory. 


Figure 44, Virtual 67—Monosegment Machine 


Second Level Memory 


First Level Memory 




Page Tables 


Image Segment 
Table 


Figure 45. Virtual 67—Multisegment Machine 
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When a paging interrupt takes place, if the virtual machine interrupted is a 360/67 
using the virtual dynamic address translation, the processing is the following: 


1. If the interrupt is a page exception (interrupt code 11) a check is made to see 

whether the interrupt should be reflected; if it should not, a reguest is issued for 

the missing page, if necessary; otherwise (if the page is already in first level 
storage) , the proper entry in the right shadow page table is loaded, and the virtual 
machine restarted. 

2 . Xf the interrupt is a segment exception (interrupt code 10) a check is made to see 

whether the interrupt should be reflected. If it should not, and if a shadow page 

table has already been allocated to the segment originating the interrupt, the 
unavailable bit is removed from that entry of the shadow segment table, the page 
table length is loaded, the corresponding shadow page table, according to that 
length, is reset with the unavailable bit in each entry, and the processing 
continues as for a paging interrupt for a multisegment machine. 

3. If a shadow page table has not yet been allocated, one such table is allocated and, 
furthermore, if the virtual 67 is switching from monosegment to multisegment 
machine, the copy and image segment tables are allocated and initialized; then 
control is given to the dispatcher. 

The modules modified to handle this algorithm are mainly DISPATCH and PROGINT and 
also CFSDBG and PAGTRANS. 


Virtual 67 Restriction 

A virtual machine may be a 360/67 provided it has a simplex CPU, with 24-bit 
addressing. 


CONSOLE FUNCTIONS 


When a console interruption occurs because the attention key has been activated at a 
user's terminal, the I/O interruption handler (IOINT) calls the CONSINT routine. CONSINT 
then calls BREAK in CFSMAIN if the terminal has a logged-on user. 


BREAK determines whether the user was executing or was waiting 
console function when the "attention" occurred. If the user was wa 
function, the "attention" is reflected to the user's machine as 
attention button interrupt. If the user was executing, the routine 
read the console function request, and control is returned to the int 
the user was receiving output from a console function request when 
was depressed, that output function is terminated, and the keyboard 
for another console function request. 


for completion of a 
iting for a console 
an online console 
RDCONS is called to 
errupted routine. If 
the attention button 
is unlocked waiting 


When the console function 
CFSMAIN is entered to analyze 
requested and gives control to 
have been processed, control is 


request has been read, the console 
the request. CFSMAIN determines the 
the appropriate subroutine. When all 
returned to the calling routine. 


function 
type of 
console 


processor 
function 
f unctions 


The console functions can 
diagnose instruction (code 8) 
earlier in Section 2.) 


also be executed from the 
and the required buffers. 


virtual machine level by the 
(See "Program Interruptions" 


The following 
users: 


console function descriptions cover the four privilege classes of 


A operator 
B - administrator 
C - customer engineer 
D - a normal user 
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Also included is the system operator class, which belongs to the first user to log 
in with privilege class A. Normally he is the operator of the Model 67. 

The following console functions are described: 

ACNT - punch and reset accounting information for active users 

ATTACH - attach a device to a user or to the system 

BEGIN - initiate execution of a virtual machine 

CLOSE - give logical EOF on unit record equipment 

DCP - display contents of real memory and registers 

DHCP - dump contents of real memory and registers 

DETACH - remove a unit from a virtual machine or from the system 

DISABLE - inhibit 2702 line access to the system 

DIRECT - allow and inhibit system DIRECTORY access 

DISCONN - disconnect a terminal from a running virtual machine 

DISPLAY - display contents of memory and registers 

DRAIN - quiesce a unit record input or output 

DUMP - dump contents of memory and registers 

D_.U_M_P - cause a system ABEND dump 

ENABLE - enable 2702 lines for access to the system 

EXTERNAL - give virtual external trap 

IP! ~ perform an initial-program-load sequence; reset virtual memory to binary zeros 

IPLSAVE - perform an IPL without resetting virtual memory to ZERO 

KILL - log a user off the system 

LINK — attach a DASD device using a directory unit description 

LOCK - lock selected user pages in core 

LOGIN - log into the system 

LOGOUT - log out of the system 

MSG - send a message to the user (s) or operator 

PURGE - delete a user's spooled input or output files 

QUERY - query the status of the system 

READY - ready a virtual device 

REPEAT - repeat the output of a currently active file on the real unit record devices 
RESET - reset the interrupt status of a virtual machine 
SET - establish system parameters or machine status 

SHUTDOWN - bring the system to orderly shutdown 

SLEEP — place a terminal in dormant state to receive messages 

SPACE - force printed output for a file to single space 

SPOOL - direct and control spool input and output 

START - commence unit record output after a drain or when requested 

STCP - store into real memory locations 

STORE - store into memory or registers 

TERM - terminate current unit record operation 

UNLOCK - release previously LOCKed pages 

WNG - issue a warning message to user(s) 

XFER - transfer spooled punch output to a user's spooled reader input 
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CONSOLE FUNCTION SUBROUTINES 

The following brief descriptions cover some of the important subroutines in console 
function processing. 

CONSTART - this routine is entered after the console function has been read by RDCONS. It 
analyzes the data and goes to COMANL to scan the command list for the desired function. 

SCANFLD - this routine will return to the caller (via BAL) the starting location and the 
Iength~of the next field in the command input, or an indication that no more data exists. 

BEGIN - this routine releases the read buffer and large save area, resets the user's 
CFWAIT status, and exits. 

BREAK - this routine is the entry point called when the user actuates the attention key. 
it"will get a 17-doubleword buffer used by RDCONS to read the console function and a 
17-doubleword large save area, which is used on subseguent call by CONSOL to other 
routines and as general working storage for various functions. 

SIMATTN - this routine is entered if the user actuates the attention key while in console 
function mode, thus giving an "attention" to his virtual machine. 

FINDUSER - this routine will search the chain of UTABLES for a specified "userid". A 
message is given if the user is not found, or his UTABLE address is returned in register 

10 . 


The module CFSMAIN contains all these subroutines. CFSMAIN remains addressable 
through register 12 for all command processing. Individual commands are placed together 
in several other modules, each module addressable by register 9. 


CONSOLE FUNCTION DESCRIPTIONS 


The following conventions are used throughout these descriptions: (1) variable 
information is indicated in lowercase letters, and system keywords are indicated in 
uppercase letters, whereas either case may be used when communicating with the system; 
(2) "<" and ">" are used to bracket choices when applicable in the description (for 
example, "MSG <userid|ALL>" would be used to indicate that "MSG userid" or "MSG ALL" 
could be used), whereas the brackets are not typed when communicating with the system. 


ACNT (ACNT) - class A and B 
ACNT 

The following steps are taken: 

- for each UTABLE in the system call ACNTIME to give accounting to each user 

- call ACNTOFF for each user to punch an accounting card and reset the accounting 

data 

Note: ACNT does not punch an accounting card or reset the accounting data for dedicated 

devices. 
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ATTACH (A) - class A and B 

ATTACH ecu TO userid AS xxx 

ATTACH ecu TO SYSTEM AS volid 

ATTACH <RDR | PRT | PUN> TO userid AS xxx 

The following steps are taken when attaching a device to a user or to the system. 

- scan the selector device chain for the device "ecu" 

- check that the device is not "owned" or already attached 

- issue a sense command for DASD types to determine that the device is "ready" 

- check that the "userid" is currently logged in to the system 

- check that the "userid" does not already have a device of address "xxx" 

- create the virtual device blocks for the user and link them to any existing blocks 

- call DEDICATE if the device being attached is in the real multiplexer chain. 

DEDICATE will create and chain a set of real selector device blocks. 

link the virtual and real device blocks on an attached (nonshared) basis 
send a message to the "userid" that the device has been attached 

if the device is being attached to the system, CP will read and verify the "volid" 
and check that the volume is not already mounted 

- ATTACH will check the "owned list" (in the system residence volume allocation 

table) to see whether the attached volume has a CP allocation table 

- if the attached volume is "owned", the allocation table is linked to the real 

device block and to the allocation table chain 

- if a "spooling" device (RDR PRT PUN) is being attached to a user, a virtual 

multiplexer block is created and chained to the user's virtual device chain 

various diagnostics are issued for a variety of error conditions that can occur 
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BEGIN (B) - any user (class A,B,C,D) 

BEGIN <hexadd> 

This command transfers control from CP console function mode to running the virtual 
machine. 

The following steps are taken: 

- set the user's virtual PSW to the address specified, if any 

- free the console functions read buffer 

- free the console functions large save area 

- take the virtual machine out of "console function" wait 

- exit to run the user 


CLOSE (C) - any user (class A,B,C,D) 

CLOSE ecu 

The CLOSE command completes a user's spooled operation for the current file and schedules 
it for output, or clears the buffers for input. 

The following steps are taken: 

- locate the specified virtual device in the user's multiplexer chain 

- call MVICLCB or MVICLPR or MVICLPN to close a reader or printer or punch, 

respectively 

- output files will be scheduled for printing or punching or the punch file may be 

chained to a reader input if it was XFERed 

- readers are cleared to accept the next spool file input. Remaining input is 

flushed. 
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DCP (DCP) - class A and B 
DCP argl arg2...argN 

ahere the arguments (argl...argN) are real memory location (s). The outcut qoes to the 
terminal. 

The following steps are taken: 

- The steps are the same as those for DISPLAY, except that the data is taken from 
real memory instead of virtual memory. 


DMCP (DMCP) - class A and B 
DMCP argl arg2...argN 

where the arguments are the same as those for the DCP Console Function, 
to the first virtual printer defined in the user's virtual machine. 

The following steps are taken: 

- The flag in the output buffer is set to indicate that the output 

printer. 

- The remainder of the steps are the same as those for DISPLAY, except that the data 

is taken from real memory instead of virtual memory. 


The output goes 


is to go to the 
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DETACH (DET) - any user (class A,B,C,D), except for certain functions 
DETACH ecu 


The DETACH command allows any user to delete any virtual device from his current 
configuration. 

The following steps are taken: 

- the virtual device block (s) are located in the user's chain of devices 

- a check is made to ensure that no tasks are gueued for this device 

- the virtual device blocks (for either selector or multiplexer devices) are 
removed from the chain and returned to free storage 

- call RELEASE; if it is a nonshared device, RELEASE will make the real device 
available for use by other users. If the real device blocks were created by 
DEDICATE, the blocks are released to free storage 1 , and the real multiplexer 
device is marked available (undedicated). 

- a message is sent to the user indicating that the device is detached 

- a message is sent to the operator if the DETACH has freed a previously dedicated 

dev ice 

- an operator (class A) can detach a device from a user by entering DETACH Rccu, 

where ecu is the real device address. The device must not be in use to do this. 
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DISABLE (DISA) - system operator only 

DISABLE ecu ecu ecu 
ALL 

This command allows the operator to selectively or generally inhibit access to the 
system from communication lines. 

The following steps are taken: 

- scan the MRDEBLOK chain for the selected (or ALL) terminal lines 

- set the DISABLE bit in the MRDESTAT field of the block 

- if the line is in use, return 

- if the line is not in use, issue an SIO and HIO of a sense to kill any enables and 

force an interrupt 

- CONSINT will handle the interrupt, detect the DISABLE bit and "disable" the line 


DIRECT (DIR) - class A and B 
DIRECT <LOCK|UNLOCK> 

This command inhibits or allows access to the system DIRECTORY. The following steps are 
taken: 

- locate the directory lock byte and open file count 

- if the directory is in use, exit with a diagnostic 

- if the directory is not in use, set or reset the lock byte 

- issue diagnostics if the byte was not already locked (lock) or unlocked (unlock) 
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DISCONNECT (DISC) - any user (class A, B,C,D) 


DISCONN <xxx> 

This command is used to release the user's terminal from his virtual machine but allow 
the virtual machine to continue running. The terminal is then free to log in as another 
virtual machine or to reconnect at a later time. 

The following steps are taken: 

- write a "disconnect" message to the user's terminal; if the optional field is 
present, do not disable the phone connection 

- set the DISCNBIT in the user's UTABLE (TIMERMOD field) 

- release the "console functions" read buffer and large save area 

- write a "disconnect" message to the operator 

- exit to run the virtual machine 


DISPLAY (D) - any user (Class A,B,C,D) 

DISPLAY (D) argl arg2 arg3 arg4 - argN 

where the arguments (argl...argN) specify virtual memory location (s), general-purpose 
register (s) , floating-point register (s), control register (s), storage key(s), and/or PSW. 
The output goes to the user's terminal. 

The following steps are taken: 

- An 18 double word output buffer acguired from Free Storage. 

- The maximum number of characters to be displayed is set based upon the user's 

terminal type—16 bytes for teletype, 32 bytes for all other terminals. 

A BAL to subroutine DISWRITE to output any partially full buffer and reinitialize 
the buffer. 

The location and length of the next argument is obtained by doing a BAL to 
SCANFLD. If there are no more arguments the output buffer is returned to Free 
Storage and return is made to READI in CFSMAIN. 

The first character of the argument is inspected for a type code (P, G, Y, L, 
T, K, or X). If none is found an L is inserted in front of the argument. The 
code is used to select the routine to branch to branch to, to perform the unique 
processing for each type of display. 

Each routine sets the default ending address and address increment and does a 
BAL on register 7 to subroutine DISINIT to determine the beginning and ending 
addresses of the data to be displayed. 

Each routine loads the next four bytes of data to be displayed into register 3 
and branches to DISCOMM. 

DISCOMM does a BAL to subroutine DISI1EAD to build the header for the line if the 
buffer is empty. 

- The data is then converted to hexadecimal and stored in the next location in 
the output buffer. 

- If the buffer is full, a BAL is done to subroutine DISWRITE to output the 
buffer. 
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The next address to be displayed is computed by adding the increment address to 
the current address. If this address is greater than the ending address, the 
next argument is fetched (step 3). If this address is not greater than the 
ending address, the next four bytes are displayed by returning on register 7 (to 
step 6). 

Subroutines: 

DISINIT scans the argument for a hyphen or a blank. A hyphen indicates that a range 
of addresses is to be displayed. if the ending address is larger than the default 
ending address, the default address is used to end the display. If the beginning 
address is larger than the ending address, a "BAD ARGUMENT XX" message is sent to 
the user and the display terminated. If either the beginning address or ending 
address is omitted the default for that address is used in the display. 

DISHEAD builds the header and trailer sections of each output line. For a register 
display, the register character identification is moved to the first three bytes of 
the output buffer and the register number is stored in bytes 5 and 6. For a display 
of core storage the next line to be displayed is compared to the last line. If both 
lines are the same, the "SUPPRESSED LINES" message is built in the buffer. If the 
lines are not the same, the last line is outputed and the current line is saved. 
For a display of core, the line is also translated to EBCDIC and moved to the 
trailer portion of the buffer. Before returning to the calling routine, the buffer 
pointer is set to the 8th byte of the buffer and the buffer count set to 7. 

DISWRITE outputs the buffer either to the user's terminal or virtual printer based 
upon a flag in the buffer. After the I/O completes, the pointer is set back to the 
start of the buffer, the byte count is set to zero, and the buffer is cleared with 
blanks. 
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DRAIN (DR) - system operator only 
DRAIN <xxx . . . nnn> 


This command will cause the specified unit record devices to stop processing at the 
completion of the currently active spool file. 

The following steps are taken: 

find the specified real multiplexer device block, or locate each device in the 
chain if doing all devices 

set the MRIDRAIN bit in the MRIFLAG field of the MRDEBLOK 

if the device is not busy, print a message to the operator indicating the 
device is drained 

loop for all devices (readers, punches, printers) if draining all 


DUMP (DU) - any user (class A,B,C,D) 
DUMP argl arg2 ... argN 


where the arguments are the same as those for the DISPLAY Console Function. The output 
goes to the first virtual printer defined in the user's virtual machine. 

The following steps are taken: 

- The flag is set in the output buffer to indicate that the output is to go to the 

printer. 

- The remainder of the steps are the same as those for DISPLAY. 
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D_U_M_P (D_U_M_P) - system operator only 
D_U_M_P 

This command will issue SVC 0 to cause a system ABEND dump. 
The following steps are taken: 

- verify complete command typed (no abbreviation) 

- issue SVC 0 


ENABLE (EN) - system operator only 

ENABLE ecu ecu ecu .... 

ALL 

This command allows the operator to selectively or generally enable 2702 lines for 
communication with CP-67. 

The following steps are taken: 

- scan the MRDEBLOK (multiplexer real device block) chain for the selected, or for 

every, 2702 line type 

- determine whether the device is already enabled or otherwise in use; bypass if it 

is 

- reset the DISABLE bit in the MRDESTAT field 

- issue an SIO and HIO of a sense to force an interrupt 

- CONSINT will receive the interrupt, issue the required (if any) SAD and ENABLE 

commands, and set the ENABLED bit in MRDESTAT 

- set the return address (MIRA) to IDENTIFY for the termination of the ENABLE 
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EXTERNAL (EX) - any user (class A,B,C,D) 


EXTERNAL 

This command simulates the operation of the CPU interrupt button to the virtual machine 
The following steps are taken: 

- set a pending external interrupt status in the user's UTABLE (PENDING flags) 

- exit to BEGIN2 to run the user's virtual machine 


IPL (I) - any user (class A,B,C,D) 
IPL xxx 


This command will cause 
choice, where xxx is a 
presaved system name of 


the loading and execution of a Control Program of the user's 
virtual device containing an IPLable Control Program or is a 
a potentially shareable Control Program or "operating system". 


The following steps are taken: 

- call RESINT to reset the virtual machine status; that is, no interrupts pending 

- call PAGOUT to clear the user's page table and the necessary system CORETABLE 

entries 


- set the swap table entry for the user|s 
half virtual memory size, whichever is 
volume of the IPL simulator page 


virtual page number hex 20 (or the page at 
the smaller) to the location on the SYSRES 


- find the user's virtual device block if not IPLing by system name 

- set the virtual address of the IPL simulator in the user's VPSW and exit to run 

the virtual machine (IPL simulator) 

- if IPLing by system name, bring in the SYSTEM module which contains the table of 

system names and is actually the module r SYSTEM 


- search for the desired system name 

- move into the user's swap table entries the DASD locations of the saved system 

- set a pointer to the shared page table, if any 

- set the user's VPSW to the saved system execution address, and exit to run the 

virtual machine 
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IPLSftVE (IPLS) - any user (class A,B,C,D) 

IPLSAVE xxx 

This command will initiate execution of the CP-67 IPL simulator in the user* 
memory space for a device specification in xxx. xxx may be the name of a 
system. 

The following steps are taken: 

- call RESINT to reset the virtual machine status 

- bypass the call to PAGOUT so user's pages remain nonzeroed 

- proceed as in IPL (after call to PAGOUT) 


KILL (K) - system operator only 
KILL userid 

This command is used to force the logout of a particular user- 
The following steps are taken: 

- locate the desired user by linking to FINDUSER 

- call the module ADSET (in USEROFF) to force the logout of the user 
the user receives a message indicating a forced logout by the operator 
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LINK (LI) - any user (class A,B,C,D) 

LINK userid xxx yyy <W | R> < (NOPASS) | PASS= password> 


The link command will attach to the user a virtual DASD block of the specified address 
(yyy) from information contained in the system directory for user "userid" and his 
device, xxx. The user may request read or write status and may be prompted for a 
password. The user may also link to himself without a password. If LINKing to himself, 
the user may specify * for "userid". LINK can also be used as a virtual console function 
with a special (PASS= password) form to provide the password with the command. 

The following steps are taken: 

- retrieve all the parameters from the input command 

- issue a "protected" read for the password if not linking to himself 

- set up the parameters for, and then call LINK module 

- on return, index on an error code to give a message 

- the LINK module will grant the desired access and set up the necessary device 

blocks 


The access modes permitted 
linking to one's own user 
only when linking to ones 
and the device is shareabl 


by the LINK command are summarized in Table 2. Note that when 
id, access allowed is the same as at LOGIN. WRMULT is examined 
elf. The table assumes that the password supplied is correct 
e for the requested access mode. 


Table 2. Summary of Access Allowed by LINK 

Directory Access Existing Access Mode Established 

S£ecification Requested Links 

Link to Link to 

RDONLY WRMULT Oneself Another Userid 


No 

No 

Read 

No 

No 

Write 

Yes 

No 

Read or Write 

No 

Y es 

Read 

NO 

Yes 

Write 

Yes 

Yes 

Read or write 


None 

Read 

Read 

Read 

Read 

Read 

Write 

None 

None 

None 

Write 

Write 

Read 

Read 

Read 

Write 

None 

None 

None 

Read 

Read 

Read 

Read 

Read 

Write 

None 

None 

Any 

Read 


Any 

Write 


Any 

Read 
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LOCK (LOC) - system operator only 


LOCK userid xxx nnn 


This command is used to lock specified pages of a user's virtual machine in core so that 
they will not be paged. 

The following steps are taken: 

- locate the desired user, who must be logged in to CP-67 

starting with the specified page (xxx), and looping for a number of contiguous 
pages (up to and including page nnn), call PAGTRAN if the page is not in core to 
BRING. Calculate the CORTABLE entry of the specified page and set the LOCKM bit 
in its CORTABLE entry. 


LOGIN (L) - any user (class A,B,C,D) 
LOGIN userid 


The LOGIN command is used to initiate a terminal session. Although included here with 
console functions, the LOGIN command is processed by the LOGON module, and technically is 
not a CONSOL command. 


When the connection between the terminal a 
message will be sent from the system ("CP-67 
to receive users. If the attention key (274 
system will respond with a carriage return, 
an attempted logon process. 


nd the system is established, a recognition 
Online") indicating that the system is ready 
1) or the break key (1050) is depressed, the 
and it will unlock the keyboard waiting for 


The format is LOGIN userid where "userid" is the eight-character or less external 
identification code assigned to the user by the systems administrator. If the userid is 
not found in the directory (U.DIRECT), a message is sent to the terminal and the terminal 
is reinitialized. If the external identification is found in the directory, a request is 
made for the user to enter his password: 


ENTER PASSWORD: 


and the printer is disabled in preparation for the receipt of his password. In the case 
of a TTY terminal, each space of the eight-character input area is preprinted with an H, 
*, and S to hide the password. For the the 1050, and for the 2741 not equipped with the 
print inhibit feature, the same password protect characters can be obtained by either of 
the following methods: 


or 


issue an x after your userid: 
login 'userid' x 

hit RETURN after the message ENTER PASSWORD is printed. 


The password is checked against the directory, and if a match is made, the user is 
informed of the message of the day (LOGHSG), if any, and of any failures in allocating 
his virtual machine. Finally, the time and day of login are indicated at the terminal. 
If the password does not match the one in the directory, an appropriate message is 
issued. During the LOGIN procedure, CP-67 uses the 2702 read-with-time-out function to 
prevent unnecessary lihe tie-up. 
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LOGOUT (LOG) - any user (class A,B,C,D) 


LOGOUT <xxx> 

where <xxx> is any nonblank character, xxx will prevent disconnect of the line. 

This command will cause the user's virtual machine to be deleted from the CP-67 system. 

The following steps are taken: 

- free the CONSOL functions read buffer and large save area 

- call ADSET to process the machine logout 


MSG (M) 

MSG userid text-of-message - any user (class A,B,C,D) 

MSG ALL text-of-message - class A and B 

(class A or B) 


This command is used to communicate with other users 
users with operator privileges (privilege class A or 
by specifying ALL for a userid. 


currently logged in to CP-67. The 
B) can send a message to all users 


The following steps are taken: 

- find the desired user; if the ID is "CP", find the system operator 

- format the message to identify the sending user 

- call WRTCONS to send the text to the user's terminal 


- if ALL is specified, repeat the WRTCONS for all users 

- send a message to the issuing user if the desired user is not currently accepting 

messages 


PSWRESTART - any user (class A,B,C,D) 


This command performs a virtual PSW RESTART function to simulate that operation on a real 
System/360. 

The following steps are taken: 

- the virtual PSW located at virtual location 0 is placed in the VMPSW field of the 

UTABLE as the current virtual PSW for this user. 

- control is returned to the virtual machine at the new PSW. 
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PURGE (P) - any user (class A,B,C,D) 

PURGE <RDR j PRT | PUN> 

This command will delete all the user's particular spool files that are still awaitina 
processing. y 

The following steps are taken: 

- starting from the PRINTERS, PUNCHES, or READERS chain, find the spool file blocks 
for the user 

call MRIDEL to delete the spool file block and to release all the records used by 
this spool file 

call WRTCONS to give the user a confirmation message 


QUERY (Q) - any user (class A,B,C,D), except for certain functions 


QUERY parameter 


where parameter is either USERS, NAMES, PORT, userid, LOGMSG, MAX, Q2, DEVICE, FILES, or 
TIME. The parameters can be abbreviated to a unigue value, for example, Q F will qive 
the file status. y 


The following steps are taken for processing each parameter: 


USERS - prints the number of logged on and "dialed" users 


NAMES 


prints the "userid" and 2702 line address of all currently active terminals 
with virtual machines. Terminals in the process of LOGIN and virtual 
machines that are DISCONNECTED are shown. The names are displayed four to 
a line. 


"userid" - 


if the user is logged in, a message of the "NAMES" format is given; if not 
"USER NOT ON SYSTEM" is given 


LOGMSG 


- the current LOGMSG is printed 


the current setting for maximum users is given (class A and B) 

the current maximum amount of CPU paging overhead desired expressed as a 
percentage. The default value for this variable is 16. (See DISPATCHER 
explanation.) 


DEVICE 

PORTS 


FILES 


the address and status of the particular device or of all DASD and TAPE 

devices is given (operator and subsystem operator class A and B) 

- the address and status (userid associated with line, or **FREE**) of the 

particular line or of all lines, or of all "free" lines is given as 

requested (class A and B) 

the number of reader, printer, and punch spool files awaiting processing 
for the user. For the system operator, the status given is for all users, 
that is, the total number of files. 


TIME 

DUMP 


gives the connect, virtual and total time used so far by the user 
- prints address of the ABEND dump unit (class A and B) 


VIRTUAL - interrogates virtual machine configuration: 'all' as an option (or null 
option) elicits entire configuration; 'core' for core size, only; 'ecu' 
for specified device. 
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READY (R) - any user (class A,B,C,D) 

READY ecu 

where ecu is a virtual device address. 

The READY command will set a "device-end" interrupt status in the virtual device block. 
The following steps are taken: 

- locate the user's virtual device block 

- set a "device-end" status in the block (VDEVSTAT) 

- set a "pending" interrupt status in the user's UTABLE 


REPEAT (REP) - class A 
REPEAT ecu <nn> 


This command will cause the currently active output of the specified device to be 
repeated nn times (1 is default). 

The following steps are taken: 

- find the specified device block, MRDEBLOK 

- if the device is not active, print a message to the operator 

- in the current spool file block, set a bit and a count to indicate that, upon 

reaching the end, the output should be restarted 


RESET (RES) - any user (class A,B,C,D) 

RESET 

This command performs a "system reset" of all the user's virtual devices. All interrupts 
are cleared. 

The following steps are taken: 

- call the module RESINT to perform a reset on all virtual devices 
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SET (SET) - any user (class A,B,C,D), except for certain functions 
SET parameter 

where parameter is either WNG ON, WNG OFF, MSG ON, MSG OFF, RUN ON, RUN OFF, CARDSAVE ON, 

CARDSAVE OFF, MAX=nn, LOGMSG, or Q2=nn. The parameters cannot be abbreviated. 

The following steps are taken to process each parameter: 

WNG ON - reset the WNGBIT in the user's TIMERMOD field of the UTABLE to allow 

receipt of "warnings", that is, priority messages 

WNG OFF - set the WNGBIT in the user's UTABLE field (TIMERMOD) to inhibit 

receiving "warnings" 

MSG ON - reset the MSGBIT to receive messages 

MSG OFF - set the MSGBIT to inhibit receiving messages 

HUN ON - set the RUNON bit to allow the virtual machine to keep running in 

"CONSOL function" mode (after "ATTN" interrupt) 

RUN OFF - reset the RUNON bit for "normal" virtual machine operation, that is, 

to stop running on "ATTN" 

CARDSAVE ON - set the MVIFSAV bit in the MVIFLAG field of all the users' virtual 
card readers 

CARDSAVE OFF - reset the MVIFSAV bit in all the users' virtual card readers 
TRACE ON - initiate tracing functions as specified by the included parameters 

TRACE OFF - terminate tracing functions 

ADSTOP xxxxxx - stop execution at virtual instruction address xxxxxx 

ADSTOP OFF - terminate an address stop function. 

The following functions are for class A and B only: 

MAX=nn - for the system operator only; to set a value for the maximum number of 

users allowed to log on (0=no limit) 

Q2 = nn - for the system operator only; to set. the maximum amount of CPU paging 

overhead expressed as a percentage. The default value for this 
parameter is 16 (see DISPATCBER explanation) . 

LOGMSG - to set or add to the system LOGMSG 

LOGMSG NULL - to delete the entire existing log message 

LOGMSG n - to set or delete LOGMSG line n 

DUMP xxx - to change dump unit and core area dumped 
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SHUTDOWN (SH) - system operator only 


SHUTDOWN 


This command will immediately terminate system operation with no messages. 

The following steps are taken: 

- set the CPID word to SHUT to indicate shutdown 

- go to the DSKDUMP routine at RESTART to force an IPL of the system so that CHKPT 

can save the machine status 


SLEEP (SL) - any user (class A,B,C,D) 

SLEEP 

This command places the terminal in a "prepared" status so that it may receive messages. 
The following steps are taken: 

- GOTO the DISPATCHER leaving the user in CFWAIT mode (nonrunnable) 

- an ATTN will awaken the user 
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SPACE (SPA) - class A 
SPACE ecu 

This command will cause the current output on the printer (spool file) to be forced to 
single spacing. This will avoid excessive forms skipping. 

The following steps are taken: 

- find the specified printer real multiplexer device block 

- set the MRISPACE bit in the MRIFLAG field of MRDEBLOK 


SPOOL (SPO) - any user (class A,B,C,D) 

SPOOL ecu CON xxx| OFF> 

SPOOL ecu CCONT| OFF> 

This command is used to direct the output of a user's virtual printer or punch to a 
specific real printer or punch. The command can also specify "continuous" input for 
virtual card readers. 

The following steps are taken: 

- find the user's virtual device block (ecu) 

- find the system real device block (xxx) 

- set the MVIFRMT bit in the MVIFLAG of the user's MVDEBLOK 

- store the address of the desired MRDEBLOK in the MVPNTREL field of the MVDEBLOK 

- reset these bits if no real device is specified 

- for a virtual card reader, set the MVICONT bit in the MVIFLAG field of the 

MVDEBLOK; or reset the bit for no "CONT" specified 
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START (STA) - system operator only 
START <xxx . . . yyy> 

This command is used to start a previously drained unit record device. 

The following steps are taken: 

- the same logic of DRAIN is followed to locate the desired device or devices 

- the MRIDRAIN list is reset in the device block 

- a dummy '’device end 11 CSW is created and a call is made to MRIOEXEC: this will 

cause any closed spool file blocks to commence output on the device 


STCP (STCP) - class A and B 
STCP argl arg2 ... argN 

where the arguments (argl...argN) are a real memory location and the data to be stored. 
The following steps are taken: 

- The steps are the same as those for STORE except the data is stored in real memory 
instead of virtual memory. 
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STORE (ST) - any user (class A,B,C,D) 


STORE argl arg2 ... argN 


where the arguments (argl...argN) specify a virtual memory location, a general-purpose 
register, a floating-point register, a control register, and/or PSW and the data to be 
stored. 

The following steps are taken: 

- Fetch the next argument and branch to the routine to handle that particular store 

function by doing a BAL to subroutine STOSCAN. 

- Each store routine sets the increment address and does a BAL to subroutine STOADDR 

to convert the beginning address to binary. 

- A BAL to STOSCAN is done to obtain the next argument. 

- If the current address is greater than the maximum allowable for the type, a "BAD 

ARGUMENT XX" message is sent to the user and the store function terminated. 

- The argument is converted to binary and stored at the current address. 

- The increment address is added to the current address to obtain the next address, 

and the store continues by fetching the next argument (step 3). 

Subroutines: 

STOSCAN does a BAL to SCANFLD to obtain the location and length of the next 

argument. The first character of the argument is inspected for a type code (P, G, Y, 

L, or X) . The code is used to select the routine to branch to, to perform the unique 

processing for each type of store. If no valid code is found, the argument is 
assumed to be data and return is made to the calling routine to continue the store. 

STOADDR converts the beginning address to binary, saves it, and returns to the 
caller. 


144 


CP-67 Program Logic Manual 




( 


TERMINATE (TERM) - system operator only 


TERM xxx 

where xxx is the real address of a unit record device whose output it is desired to 
terminate. 

The following steps are taken: 

- find the MRDEBLOK for the specified device 

- set the TERMINAT bit in the MRIFLAG field of MRDEBLOK 

UNLOCK (UN) - system operator only 
UNLOCK userid xxx nnn 

This command will unlock a previously LOCKed page. 

The following steps are taken: 

- the same logical steps as in LOCK, but turn off the LOCKM bit in the core table 

entry if the specified page is in core 
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WNG (W) - class A and B 

WNG userid text-of-message 
ALL 


The "warning" function operates the same as MSG except that a priority call is made. 

The following steps are taken: 

- find the specified "userid", or if "ALL" is specified, do the following for all 

logged-on users: 

- format the message to identify the originator 

- call PRIORITY to send the message to the user immediately 

- send a message to the originator if a user is not receiving warnings 


XFER (X) - any user (class A,B,C,D) 

XFER ecu TO userid 
XFER ecu OFF 


This command is used to transfer a punch spooled file to the reader input spool files of 
the specified user. 

The following steps are taken: 

- find the desired punch device (ecu) 

- call USERLKUP to search the CP—67 directory to determine that the "userid" is 

valid 

- move "userid" to the MVIXUSER field in the MVDEBLOK 

- set the MVIXFER bit in the MVIFLAG of the MVDEBLOK 

- for the OFF option of the XFER command, reset the MVIXFER bit and blank the 

MVIXUSER field 
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SECTI0N_3j._ PROG R AMMING CONVENTION S 


To allow for the orderly maintenance and growth of the CP-67 operating system, the 
programming conventions described should be followed by anyone working with CP-67 
programs. 


MAINTENANCE 

The CP-67 system is maintained using the Cambridge Monitor System. A set of 
catalogued procedures (EXEC files) are distributed with the system (see the CP-67 
Installation Guide for their descriptions). 


ASSEMBLY DECK FORMATS 

All decks contain a TITLE card as the physically first card with a unigue label 
field and a suitable title in the operand field. 

The primary entry point of a routine is indicated with a START card, which is the 
second card of the assembly deck in the absence of macro definitions or comments 
(reguired by the loader). 

Unless reguired otherwise, all COPY statements are located at the end of the deck. 

The END card must not have any operands. The loader will accept only one of such 
type, and this must be the one in SAVECP. 

Information used by more than one routine will be contained in the file CPMACS 
MACLIB. This file will contain the macro definitions, equivalence packages, and control 
block definitions (DSECTs). All parameters and flag bits should be assigned symbolic 
names and defined in the appropriate equivalence package. 


EQUIVALENCE PACKAGES AND CONTROL BLOCK DEFINITIONS 


These packages 
pseudo-operation. 


will be included in an assembly by means of the COPY 


CPFDEF 

DEVTYPES 

EQU67 

IOBLOCKS 

OPTIONS 

LOCAL 


defines the CPFILE control blocks. 

defines the CP-67 device type codes. 

A printout of DEVTYPES follows this list. 

defines references to physical lower core, 
channel command words, CALL parameters, 
CPEXBLOK definition, etc. A printout of EQU67 
follows this list. 

defines the input-output control blocks 
and IOTASK block. 

contains assembly option switches and 
macro definitions. 

contains assembly option with settings for 
the particular installation. 
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UDIRECT defines the directory blocks HDENT and UFDENT. 

UTABLE defines the UTABLE and EXTUTAB blocks and 

included flag bits. 


Obtain a listing of the appropriate ASP360 or COPY file from the CP-67 distributed system 
for a detailed and accurate description of the contents of each file. 
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CP-67 DEVICE CODES 


******************************************************** 
* * 

* CP-67 DEVICE TYPE CODES * 

* * 
******************************************************** 


* 


TYP1052 

EQU 

0 

TYP1050 

EQU 

4 

TYP2250T 

EQU 

8 

TYP2260T 

EQU 

12 

TYP2741T 

EQU 

16 

TYP 1052T 

1 EQU 

20 

TYP2703T 

EQU 

24 

TYP2702T 

EQU 

24 

TYP2701T 

EQU 

24 

TYPTT35T 

EQU 

28 

TYPTTY35 

EQU 

TYPTT35T 

TYPTIMER 

EQU 

44 

TYP1403 

EQU 

48 

TYP2540P 

EQU 

52 

TYP2540R 

EQU 

60 

TYP2671 

EQU 

64 

TYPRMPRT 

EQU 

X' 44 ' 

TYPRMPUN 

EQU 

X ' 48 ' 

TYPM20 

EQU 

96 

TYP1800 

EQU 

100 

TYP2311 

EQU 

128 

TYP2314 

EQU 

132 

TYP2302 

EQU 

136 

TYP2321 

EQU 

140 

TYP2301 

EQU 

144 

TYP2303 

EQU 

148 

TYP2250 

EQU 

180 

TYP2260 

EQU 

184 

TYP2400 

EQU 

192 

TYP2404 

EQU 

192 

TYP2402 

EQU 

192 

TYP2403 

EQU 

192 

TYP3420 

EQU 

196 

TYP7340 

EQU 

204 

TYP2701 

EQU 

208 

TYP2701L 

EQU 

208 

TYP2702L 

EQU 

208 

TYP2703L 

EQU 

208 

TYP2700L 

EQU 

208 

TYP2702D 

EQU 

212 


* 


MPX/2702 2741 

1052 

MDL 35 TELETYPE 
SIMULATED CHRONOLOG 

REMOTE PRINTER READER 
REMOTE PUNCH READER 


GENERAL MAG TAPE 


L IS A DEDICATED LINE 


D IS A DIAL CONNECTED LINE 


******************************************************** 
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CP-67 EQUATE PACKAGE - EQU67 


4<4<*4‘4<4<4<4<4<*4‘4‘4‘4<*4‘4>4<*4<4‘4‘4<4<4<4"4:4>4‘4<4<4‘4<4<4‘*4<4<4‘4<4<4<4<4<4<4<4‘*4'4‘4c4‘4<4‘4‘4<4-4>4<4<*44<4>4>4‘4<4<4<4>4< 
* * 

* CP-67 EQUIVALENCE AND MACHINE DEFINITION PACKAGE * 

* * 
4c*4<4‘4<4<4<4'4<4<4'4<4<44‘4‘*4<4'4<*4‘4<4:4‘4‘4‘4‘4'4<4<*4*4<4o!<4>4‘4‘4<4<4‘4<4<4<4"4:4<4<4*4;4^4>4c4<4c4<4<4:4:4<4<4<4<4t4c4t4c 
* 


* BITS IN STANDARD PROGRAM STATUS WORD 

* 


PROBMODE 

EQU 

X* 01' 


PROBLEM MODE BIT. 

WAIT 

EQU 

X 1 02 1 


WAIT BIT. 

MCHEK 

EQU 

X' 04' 


MACHINE CHECK. 

ASCII 

4< 

EQU 

X 1 08 ' 


ASCII BIT. 

4> 

4c 


BIT ASSIGNMENTS IN EXTENDED PROGRAM STATUS WORD 

MODE32 

EQU 

X« 08' 


24/32 ADDRESSING MODE BIT. 

TRANMODE 

EQU 

X ' 04 ' 


DYNAMIC TRANSLATION MODE BIT. 

IOMASK 

EQU 

X' 02' 


OVERALL I/O MASK BIT. 

EXTMASK 

4c 

EQU 

X '01 • 


OVERALL EXTERNAL INTERRUPTION MASK BIT. 

4< 

4c 


DEFINED 

BITS IN CHANNEL STATUS WORD 

ATTN 

EQU 

X' 80' 


ATTENTION BIT. 

SM 

EQU 

X' 40 • 


STATUS MODIFIER BIT. 

CUE 

EQU 

X' 20' 


CONTROL UNIT END BIT. 

BUSY 

EQU 

X ' 1 0 » 


BUSY BIT. 

CE 

EQU 

X' 08' 


CHANNEL END BIT. 

DE 

EQU 

X • 04 ' 


DEVICE END BIT. 

UC 

EQU 

X' 02' 


UNIT CHECK BIT. 

UE 

4c 

EQU 

X'01 ' 


UNIT EXCEPTION BIT. 

PCI 

EQU 

X' 80' 


PROGRAM-CONTROLLED INTERRUPT BIT. 

MLR 

EQU 

X ' 40 ' 


WRONG-LENGTH-RECORD BIT. 

PRGC 

EQU 

X' 20' 


CHANNEL PROGRAM CHECK 

PRTC 

4c 

EQU 

X' 10' 


CHANNEL PROTECTION CHECK 

4< 

4c 


FLAGS DEFINED 

IN CHANNEL COMMAND WORDS 

CD 

EQU 

X' 80 ' 


CHAIN DATA FLAG. 

CC 

EQU 

X' 40' 


CHAIN COMMAND FLAG. 

SILI 

EQU 

X '20 ' 


SUPPRESS INCORRECT LENGTH INDICATOR FLAG 

SKIP 

EQU 

X' 10' 


SUPPRESS TRANSFER OF INFORMATION. 

PCIF 

4c 

EQU 

X ' 08 ' 


PROGRAM-CONTROLLED-INTERRUPT FLAG. 

4< 

4c 

FLAGS 

DEFINED 

IN FIFTH BYTE OF CCW TO AID CCW TRANSLATION 

RCXIS 

EQU 

X' 80' 


CHECK ISAM INDICATOR 

RCSUDO 

EQU 

X ' 40 ' 


PSEUDO 2311 INDICATOR 

RCUTIC 

EQU 

X' 20' 


UNTRANSLATED TIC 

RCIO 

EQU 

X'10' 


I/O CCW 

RCGEN 

EQU 

X' 08' 


CP GENERATED CCW 

RCDATA 

EQU 

X ' 04 ' 


CP GENERATED CHAIN DATA 

RC02 

EQU 

X* 02' 


RESERVED FOR FUTURE USE 

RC01 

4c 

EQU 

X'01 ' 


RESERVED FOR FUTURE USE 

4" 

4< 

DEFINED LOCATIONS IN 

MACHINE (EXTENDED AND STANDARD) 

IPLPSW 

EQU 

0 


INITIAL PROGRAM LOAD PSW. 

IPLCCW 

EQU 

8 


INITIAL PROGRAM LOAD CCWS. 

INTCODES 

EQU 

14 


INTERRUPTION CODES (EXTENDED) 

EXOPSW 

EQU 

24 


EXTERNAL INTERRUPT OLD PSW. 

SVCOPSW 

EQU 

32 


SUPERVISOR CALL INTERRUPT OLD PSW. 

PROPSW 

EQU 

40 


PROGRAM INTERRUPT OLD PSW. 
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MCOPSW 

EQU 

48 

IOOPSW 

EQU 

56 

csw 

EQU 

64 

CAW 

EQU 

72 

TIMER 

EQU 

80 

EXNPSW 

EQU 

88 

SVCNPSW 

EQU 

96 

PRNPSW 

EQU 

104 

MCNPSW 

EQU 

112 

IONPSW 

EQU 

120 

SCANOUT 

EQU 

128 

CHANLOG 

EQU 

304 


* 


MACHINE CHECK INTERRUPT OLD PSW. 
INPUT-OUTPUT INTERRUPT OLD PSW. 
CHANNEL STATUS WORD. 

CHANNEL ADDRESS WORD. 

MACHINE INTERVAL TIMER. 

EXTERNAL INTERRUPT NEW PSW. 
SUPERVISOR CALL INTERRUPT NEW PSW. 
PROGRAM INTERRUPT NEW PSW. 

MACHINE CHECK INTERRUPT NEW PSW. 
INPUT-OUTPUT INTERRUPT NEW PSW. 
DIAGNOSTIC SCAN-OUT SECTION. 
CHANNEL LOGOUT AREA (2860,2870) 


* 


STORAGE LOCATIONS USED BY THE CONTROL PROGRAM 


* 

RUNUSER EQU X'160' 

CPSTATUS EQU RUNUSER+4 

* BITS DEFINED IN CPSTATUS 


* 

CPIDLE EQU X 1 80' 

VMDONE EQU X'40' 

*IOMASK EQU X'02' ON..FOR 1-0 ENABLED PROCESSOR 

* 


* 

MONTHS EQU CPSTATUS+1 

DAYS EQU MONTHS+1 

YEARS EQU DAYS+1 

HOURS EQU YEARS+1 

MINUTES EQU HOURS+1 

SECONDS EQU MINUTES+1 

* 

STARTIM EQU HOURS+4 

BINTIME EQU STARTIM+8 

DISPSW EQU BINTIME+4 NOTE: MUST BE DOUBLE WORD BOUNDARY 

* 

* CP POINTERS FOR CPINIT, CHKPT AND BUZZARD 

* 

ASYSWRM EQU DISPSW+8 WARM START CYL ADDRESS 

ASYSINF EQU ASYSWRM+4 LOGMSG START 

ASYSCNSL EQU ASYSINF+4 1052 CONSOL ADDRESS LOC 

CPID EQU ASYSCNSL+4 CP-67 IDENTIFIER 

ARMXST EQU CPID+4 REAL MPX CHAIN START 

ARECBUF EQU ARMXST+4 SPOOL BUFFER START 

AZVOL EQU ARECBUF+4 ZERO VOLUME DEVICE 

APRINT EQU AZVOL+4 PRINTER FILE CHAIN 

APUNCH EQU APRINT+4 PUNCH FILE CHAIN 

AREADERS EQU APUNCH+4 READER FILE CHAIN 

AMREAL EQU A READERS + 4 ACCOUNTING CARD CHAIN 

ARCHSTRT EQU AMREAL+ 4 REAL SEL CHAN START 

* 

CPUTAB EQU ARCHSTRT+4 TABLE OF CPU'S AND PREFIXED PAGE 0 

CPUOTH EQU CPUTAB+23 CPU IDS OF OTHERS 

CPUID EQU CPUTAB+ 27 CPU ID WITHOUT EXTRANEOUS BITS 

CPUSCR EQU CPUTAB + 31 SCRATCH BYTE FOR CPUL/F 

* 

TEMPSAVE EQU CPUTAB+48 TEMPORARY SAVE FOR INTERRUPT HANDLERS 

* 

BALRSAVE EQU TEMPSAVE+64 FAST LINKAGE SAVE .. 80 BYTES 

* 

DISPATWK EQU BALRSAVE+80 WORK AREA FOR DISPATCH (8 WORDS) 

* 

RUNINTIM EQU DISPATWK+32 1 SECOND INTERVAL BINARY TIMER 

DSCRO EQU RUNINTIM+ 4 CURRENT SEGMENT TABLE ORIGIN 

KALG EQU DSCRO+4 PAGING ACTIVITY CONTROL 

LOCKOUNT EQU KALG+4 COUNT OF CURRENTLY LOCKED PAGES 

MAXLOCK EQU LOCKOUNT+2 MAX. VALUE OBTAINED BY LOCKOUNT 

* 


* 
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***** 

* 

PSA 

ASSEMBLED DATA 

STARTS AT X'340'. 


* jjc * * * 

* 

CURRENT DEFINITION 

OF STAT COUNTERS STARTS AT X'350'. 

X 

X 

TIMING MEASUREMENTS 

„ 


CPTIME 

EQU 

X'350' 

CPU TIME IN SUPERVISOR 

STATE 

PROBTIME 

EQU 

CPTIME+4 

CPU TIME IN PROBLEM 

STATE 

WAITTIME 

* 

EQU 

P ROBTIME+ 4 

CPU TIME IN WAIT 

STATE 

OVERHEAD 

EQU 

WAITTIME+4 

SUPVR TIME NOT CHARGED 

TO USERS 

0 AITIDLE 

EQU 

0VERHEAD+4 

WAIT TIME FROM PERIODS 

GTE 1/4 SEC. 

WTPAGE 

EQU 

W AITIDLE+ 4 

TIME SPENT WAITING FOR 

A PAGE 

WTUSR 

EQU 

WTPAGE+4 

TIME SPENT WAITING WITH 

N-IN-Q RUNNABLE USER 

WTUSRA 

* 

EQU 

WTUSR+4 

WTUSR * NUMBER OF NON-IN-Q RUNNABLE USERS 

* 

* 

CPU 

EVENT COUNTERS: 



KPGEX 

EQU 

WTUSRA+ 4 

COUNT OF PAGING EXCEPTIONS 

PGREA.D 

EQU 

KPGEX+4 

PAGES READ IN 


PGSWAP 

EQU 

PGREAD+ 4 

PAGE SWAPS 


QCOUNT 

* 

EQU 

PGSWAP+4 

COUNTER: USER IN Q LOST 

PAGE 

* 

* 

* 

INSTALLATION USER (4 WORDS): 


INSTWRD1 

EQU 

QCOUNT+4 



INSTWRD2 

EQU 

INSTWRD1+4 



INSTWRD3 

EQU 

INSTWRD2+4 



INSTWRD4 

❖ 

EQU 

INSTWRD 3 + 4 



* 

* 

USER 

EVENT COUNTERS 

. 



* 


STATUSER EQU INSTWRD4+ 4 COUNTERS FOR USER INSTR. STREAM EVENTS, 

* 

* 

* DEFINITION OF STATISTICS COUNTERS IN CP CORE — * 

* COUNTERS OF USER EVENTS. * 

* * 


STATINST 

EQU 

STATUSER 



* COUNT 

OF INTERRUPTS 



STATUE XT 

EQU 

STATINST 

COUNT 

OF 

STATUSVC 

EQU 

STATUEXT+4 

COUNT 

OF 

STATUPGM 

EQU 

STATUSVC+4 

COUNT 

OF 

STATUIOI 

+ 

EQU 

STATUPGM+4 

COUNT 

OF 

* COUNT 

OF PRIVILEGED INSTRUCTIONS 


STATSSK 

EQU 

STATUIOI+4 

COUNT 

OF 

STATISK 

EQU 

STATSSK+ 4 

COUNT 

OF 

STATSSM 

EQU 

STATISK+4 

COUNT 

OF 

STATLPSW 

EQU 

STATSSM+ 4 

COUNT 

OF 

3TATDIAG 

EQU 

STATLPSW+4 

COUNT 

OF 

STATDDSK 

EQU 

STATDIAG+4 

COUNT 

OF 

STATSIO 

EQU 

STATDDS K+4 

COUNT 

OF 

STATTIO 

EQU 

STATSIO + 4 

COUNT 

OF 

STATHIO 

EQU 

STATTIO+4 

COUNT 

OF 

STATTCH 

X 

EQU 

STATHIO+4 

COUNT 

OF 

* PRIVILEGED 

INSTRUCTIONS 

FOR VIRTUAL 

STATWRD 

EQU 

STATTCH+4 

COUNT 

OF 

STATSTMC 

EQU 

STATWRD+4 

COUNT 

OF 

STATLRA 

EQU 

STATSTMC+4 

COUNT 

OF 

SXATLMC 

EQU 

STATLRA+4 

COUNT 

OF 


* 


USER EXT INTERRUPTS REFLECTED 
USER SVC INTERRUPTS REFLECTED 
USER PGM INTERRUPTS REFLECTED 
USER I/O INTERRUPTS REFLECTED 


USER * SSK ' INSTRUCTIONS 
USER 1 ISK' INSTRUCTIONS 
USER ' SSM ' INSTRUCTIONS 
USER 'LPSW' INSTRUCTIONS 
USER 'DIAGNOSE' INSTRUCTIONS 
DIAGNOSE DISK 10 INSTRUCTIONS 
USER 'SIO' INSTRUCTIONS 
USER 'TIO' INSTRUCTIONS 
USER 'HIO' INSTRUCTIONS 
USER 'TCH' INSTRUCTIONS 

67 

67 USER »WRD' INSTRUCTIONS 
67 USER 'STMC' INSTRUCTIONS 
67 USER ' LRA' INSTRUCTIONS 
67 USER 'LHC' INSTRUCTIONS 
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* MODULE 
STATDSP 

❖ 

* 

* 


COUNTESS 
EQU STATLMC+4 


COUNT OF CALLS TO CKUSR IN DISPATCH 
BITS DEFINED FOR CORE MANAGEMENT ROUTINES 


BRING 

EQU 

X' i 

CHANGED 

EQU 

X'l 

USED 

EQU 

X" 

DEFER 

EQU 

X' 

LOCK 

EQU 

X' 

* 

BITS 

SET 

SHARED 

EQU 

X' 

TRANSIT 

EQU 

X' 

RECOMP 

EQU 

X ' 

* 

BITS 

SET 

❖TRANSIT 

EQU 

X ' 

LOCKON 

EQU 

X* 

LOCKCM 

EQU 

X ' 

❖ 



❖ 


PA 

❖ 



EDIT 

EQU 

1 

UCASE 

EQU 

2 

NORET 

EQU 

4 

DFRET 

EQU 

8 

NOAUTO 

EQU 

16 

OPERATOR 

EQU 

32 

ALARM 

EQU 

64 


01' BRING REQUESTED PAGE IN. 

STORAGE KEY » PAGE CHANGED 
04' STORAGE KEY, PAGE REFERENCED 

RETURN CONTROL ONLY AFTER PAGE IS IN CORE 
SET LOCK BIT ON REQUESTED PAGE. 

SET IN SWPTABLE ENTRIES 

10* PAGE IS SHARABLE, SET IN SWPTABLE 

80' TRANSIT BIT FOR CORE HANDLER ROUTINES 

40* RECOMPUTE DASD ADDRESS IN SWPTABLE 

CORTABLE ENTRIES 
80' SAME AS SWAPTABLE 

40' NON-ZERO LOCK COUNT FOR THIS PAGE 

20' LOCK COMMAND SET FOR THIS PAGE 

PARAMETER VALUES PROVIDED TO 'RDCONS' OR 'WRTCONS' 

PERFORM LINE EDITING FUNCTION. 

TRANSLATE LOWER TO UPPER CASE. 

DON'T RETURN WHEN THROUGH. 

PERFORM 'FRET' OF SPECIFIED AREA. 

NO AUTOMATIC-CARRIAGE-RETURN WANTED 
MESSAGE TO/FROM OPERATOR 
SEND ALARM TO USER TERMINAL 

REGISTER EQUIVALENCES 


RO 

EQU 

0 

R 1 

EQU 

1 

R2 

EQU 

2 

R3 

EQU 

3 

R4 

EQU 

4 

R5 

EQU 

5 

R6 

EQU 

6 

R7 

EQU 

7 

R 8 

EQU 

8 

R9 

EQU 

9 

RIO 

EQU 

10 

R 1 1 

EQU 

11 

R1 2 

EQU 

12 

R 1 3 

EQU 

13 

R1 4 

EQU 

14 

R 1 5 

EQU 

15 

* 



CPEXBLOK 

DSECT 


CPEXNEXT 

DS 

IF 

CPEXADD 

DS 

IF 

CPEXREGS 

DS 

16F 

CPEXMISC 

DS 

2F 

❖ 



CPEXSIZ 

EQU 

(*_ 

* 





CONTROL PROGRAM EXECUTION REQUEST BLOCK 
POINTER TO NEXT REQUEST. 

ADDRESS TO RECEIVE CONTROL. 

REGISTERS TO RESTORE (EX. 15) 

UNASSIGNED. 
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SUBROUTINE CONVENTIONS AND REGISTER USAGE 


Except for certain isolated instances, the following conventions 
subroutine calling seguences and addressability apply throughout CP-67. 

Addressability is via register 12. Subroutines may assume that register 12 
properly loaded at the time the subroutine is entered. 


relative to 


A Th *A firSt , instruct i°n of a normally called subroutine should be the ENTER macro 

f ln the section on macro usage. The return point of the subroutine should use 
U 110 ijA j.i macro• 


Register 13 points to a valid save area 
words in length. The first three words are 
to save return information. Word 1 is the 
(return base), and word 3 is the caller's 
space is used as the called routine sees fi 
saved registers into the area beginning at 
subroutine may not change the contents of 
changed must be restored, with the except 
considered destructible. 


l usable by the routine b 
reserved and used by the 
return address, word 2 
R13 (return save area). 
t. The ENTER and EXIT m 
the fourth word of the 
register 12 or 13. An 
ion of registers 14 a 


eing called, 
call linkage 
is the call 
The remainde 
acros will s 
save area. Th 
y registers 
nd 15, which 


It is 24 
handler 
er's R12 
r of the 
tore the 
e called 
that are 
may be 


Subroutines expecting to return to the calling program should be called with the 
CALL macro. Subroutines which are called with the CALL macro and which will not return 

EXI ki ma< r ro shou1 ^ perform an SVC 16 to return the currently assigned save area 
back to usable storage. This type of code should be avoided, if possible. It is used by 
second .level interrupt handlers to bypass returning to the first level handier under 
specific circumstances. 

cn-rn tJncond 1 ^ onal transfers to routines which expect no return should be made via the 
routine C u°ed The routlne thus called has access to the same save area which the calling 

m 0 „! ara ' et H transfers to subroutines will generally be via general purpose registers 
to enhance the ease of coding in a reentrant fashion. The specific calling seguences 
depend upon the subroutine being called, with the exception that if the PARM = parameter 
ot the CALL macro is used, register 2 will be modified within the CALL macro. 

Register 11 contains the UTABLE address for the user being serviced. 

SYSTEM MACRO USAGE 

The following macros are defined and their usage explained: 

CALL - establishes subroutine linkages via SVC interrupt 

CPUF, CPUL - CPU lock protect for multiprocessing (not now functioning) 

ENTER, EXIT - save and restore registers at entry and exit of system routines 
GOTO - same parameters as CALL, but no return from called routine 


TRANS - facilitates translation of virtual to physical memory address, with 
necessary paging 
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BAS, BAS R , LMC , STMC, and LRA 


Macros BAS, BASR, LMC, STMC, and LRA are merely defined to be equivalent to the 
machine instructions to be assembled. These macros are provided in the absence of the 
corresponding mnemonics of the F-level OS/360 Assembler so as to include them in its 
operation dictionary. 


C ALL 


Subroutine linkages in the Control Program (with the exception of those routines 
called via the BALR interface) are made via the CALL macro, which generates the 
appropriate call (via SVC interrupt) to the supervisor, enabling automatic generation and 
stacking of save areas, etc. The format is: 

|label| CALL <subr,gpr>,|EXTERNAL|,|PARM=(arg1+arg2+...)| 

where "label" refers to the first generated machine instruction in the expansion; "subr" 
refers to a subroutine name (either defined internally or externally), or "gpr" refers to 
a general purpose register number (self-defining, not "R1"). "EXTERNAL" as an optional 
argument indicates that a V-type address constant is to be generated. The optional 11 PARM" 
argument, if included, provides for the loading of GPR 2 with the parameters indicated 
(specified normally as EQU values). If all parameters are to be turned off, PARM=0 must 
be specified; otherwise, GPR2 will not be set in the macro expansion. 
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ENTE R and EXIT 


The ENTER and EXIT macros are placed at the entry and exit points of system routines 
within the Control Program. They perform the function of saving and restoring registers 
and exiting to the calling program. Their format is: 

| label | ENTER |<reg1 |,reg2|>| 

EXIT 

With the standard calling sequence under the CALL macro description above, provision 
is made for the standard supply of save areas in an efficient manner. The ENTER and EXIT 
macros enable easy use of this facility. 

If no arguments are provided, no saving of registers takes place at entry to the 
routine. If a single register is stated, it alone is saved in the provided save area at 
12(13). If a range is provided, these registers are saved beginning at 12(13). The first 
three words of the save area are never to be modified except by the SVCINT routine. 
Sufficient space is provided for the saving of all registers. Care must be taken that the 
registers are restored (via the EXIT macro) in the same manner as they were stored in the 
ENTER instruction. The parameters for matching ENTER and EXIT pairs should be identical. 


GOTO 


The format of the GOTO macro is: 

|label| GOTO <subr,gpr>|,PARH= (arg1 + arg2 + arg3+ )| 

The parameters are identical to those of the CALL macro (see "CALL"). The 
difference is that the routine doing the GOTO will not expect a return from the called 
routine. Therefore, no provision is made for the generation of a save area address. The 
called subprogram may make use of the same save area as the calling program. 
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TRANS 


The TRANS macro is used whenever a virtual address is to be translated to a physical 
memory' address, and the page, if not core resident, may be required to be paged in. Its 
format is as follows: 


|label| TRANS rgpr,vgpr| ,OPT=(a(1) ,a(2) ,...) | 

where "rgpr" is the register to receive the translated address; "vgpr" is the register 
containing the virtual address. OPT is an optional parameter which has as subparameters 
those options provided to the PAGTRANS routine via the CALL macro. These options will be 
passed in the event a call to PAGTRANS is required. They are discussed below. 


Note: "rgpr" and "vgpr" cannot be the same register. 

If LOCK is specified, PAGTRANS is called as it would be normally. If BRING is 
specified, the LRA instruction is used to determine whether the page is currently 
resident. If it is not, PAGTRANS is called as it would be normally; otherwise the call 
is bypassed. If neither is specified, the LRA alone is used and the condition code set. 
Note that if a call to PAGTRANS is required, registers 1,2, and 15 will not be preserved 
over the macro. If DEFER is specified, control will not be returned until the page is in 
core. If USED is specified, the used bit will be set for the specified page. If CHANGE 
is specified, the changed bit will be set for the specified page. 


The following conditional branch macros are defined: 


B 

B 

B 


(N) PE (R) 

Branch 

on 

(N) RE (R) 

Branch 

on 

(N) SE (R) 

Branch 

on 


(no) page exception (RX, RR); 
(no) reloc. exception (RX, RR); 
(no) segment exception (RX, RR) . 
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SECTION 4 : TAB LE S AND CONTROL BLO C K FORMATS 


This section contains illustrations representing the formats of blocks and tables 
used by the control program. A brief description of the contents and use of the tables 
is also given. Further details may be found in the preceding and following sections. (In 
the list below, "1/" means one per user, device, etc.) 

The following control blocks are described: 


ALLOCTBL - index to DASD space available to CP for paging and spooling 
CCWPKG - one for each reguest for a CP-67 terminal read or write 

CORTABLE - eight-byte entry/page of real memory, indicating resident virtual page, user, 
and real page lock condition 

CPEXBLOK - request for some CP-67 program execution that has been previously deferred 
pending an event _ 

CPFDENT - CPFILE system dictionary entry containing file name and location of first 
record 

CPFFDBLK - a file descriptor block/open file in CP File System routines (CPFILE), 
describing read/write status, etc. 

CPFRECRD - record format of CPFILE records (user directory files,machine descriptor 
files, system directory) on systems tracks 

EXTUTAB - one for each virtual 360/67. It is an extension of the UTABLE containing the 
information peculiar to a virtual 67. 

IOTASK - 1/active user selector channel task and each CP-initiated I/O operation 
LOGCDATA - describes the format of the error records saved by CP-67 for channel checks 

LOGIDATA - describes the format of the error records saved by CP-67 for I/O errors 

LOGMDATA - describes the format of the error records saved by CP-67 for machine checks 

MDENT - machine description entry created by DIRECT to describe a device in a user's 

virtual machine 

MRDEBLOK - 1/real multiplexer device defined in the system 

MRIBUFF - buffer for spooled packed data when handled for real equipment; chained from 
MTASK in MRDEBLOK 

MVDEBLOK - 1/virtual multiplexer device attached to a user's UTABLE 
MVIBUFF - buffer for spooled packed data; chained from MVIOB in MVDEBLOK 
PAGTABLE - describes status and main storage address of a virtual memory page 
RHEADR, RCCWLIST - 1/user CCW list describing location and number, etc., of CCW's in user 
list 

RCHBLOK - 1/real channel, describing pending tasks, channel address and status, attached 
control units, etc. 

RCUBLOK - 1/real control unit, describing channel and devices attached as well as 
control unit status, address, etc. 

RDCONPKG - one for each request for a CP-67 terminal read; contains return status 
information 

RDEVBLOK - 1/any real device, describing address, device type, control unit, task block, 
etc. 

RECBUF - 1/cylinder, describing records available/in use, cylinder number, etc. 

SAVEAREA - format of the active and inactive save areas used in subroutine linkage 

SEGTABLE - 1/user, describing user page table entries 

SFBLOK - one for each "closed" file for spooled input and output 

SWPTABLE - 1 entry/PAGTABLE entry, describing page swap area addresses 

TRECBUF - one for each cylinder of an 'opened' spool file that has had data written on 
it. 

TREXT - built as a UTABLE extension when user invokes tracing functions 
UFDENT - user file directory user information (ID,password,etc.) and user system access 
information (privilege class, priority code) 

UTABLE - 1/user; primary control block onto which other user blocks are strung, 
reflecting complete virtual machine status 

VCHBLOK — 1/virtual channel for each user, describing channel status, address, attached 
control units, etc. 

VCUBLOK - 1/virtual control unit describing control unit status, address, attached 
devices, etc. 

VDEVBLOK - 1/virtual device for each user, describing device address, status, 

corresponding real device control block, etc. 
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ALLOC 


There is an allocation block for each volume which is "owned" by the system for uses 
such as paging and spooling. The module TMPSPACE scans down a list depending on device 
type (T2311 for 2311 disks, T2301 for 2301 drums, etc.). The format of the allocation 
table block in free storage is as follows: 


0 2 4 6 8 

+-- +—--+---+-+ 

0 | Pointer to next ALLOC | Pointer to RDEVBLOK | 

+->+-+ 

8 I , 

I I 

I Allocation Data: I 

I I 

- 201 Bytes - 2301 - 

201 Bytes - 2303 

- 204 Bytes - 2311 - 

! 204 Bytes - 2314 | 

I I 

j +---- +-+ 

I I Rec. Cnt | Reserved | 

+ - — - + - + - + - 

2161 Ptr - IOTASK - Rec 1 | Ptr - IOTASK - Rec 2 | A 

+- + --- + | 

224| | | | 

+ - + -+ | 

2321 | | 2301 only 

+ - + -+ | 

240| | | | 

+ - + - + | 

248| Ptr - IOTASK - Rec 9 | Reserved | V 

+- + - + -+-+- 


where: 

The first word is a pointer to the next block in the allocation gueue for this type of 
device. 


The second word is a pointer to the real device block on which this volume is mounted. 

The allocation data for the drum consists of one bit for every page on the drum 
indicating whether the page is available for system paging (bit contains a 0) or in 
use (bit contains 1). The allocation tables are preformatted so that only those pages 
on a given drum track which are available for paging are initialized to zero. For the 
2301 drum, one byte represents one drum track. Since five pages may fit on an even 
track address and four on an odd track address, the allocation table is initialized to 
X 1 270F070F...070FFF so that unavailable pages or illegal addresses are not selected as 
swapping space. The halfword at location 212 contains the count of allocated records 
on this device and the 9 words located at bytes 216-252 contain pointers to the first 
10 task which references the corresponding records 1 through 9 on the drum. For the 
2303 drum, the mask is set to X'2FOFOFOF....0F0FFF'. The value FF indicates the end 
of the allocation table. 

The allocation data for the 2311 and 2314 disks consists of one byte per cylinder 
indicating whether the cylinder is available for temporary use. If the cylinder is 
available, the byte contains 00; if not, it contains 08. The OF indicates the end of 
the allocation table for this device. For 2311 and 2314, any cylinder on an "owned" 
volume can be allocated for "temp" use (paging or spooling); "perm" (not available); 
"tdsk" (for T-disk allocation); or "drct" (for directory use). Only those cylinders 
marked "temp" (X"00") are available for spooling or paging. 


The size of the ALLOC block is 216 bytes for all devices other than a 2301; for the 
2301 the size is 256 bytes. 
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CCWPKG 


There is one CCWPKG for each terminal I/O request (read or write) generated by CP-67 
or the virtual machine (virtual 1052 I/O). The CCWPKG's are chained from each user's 
UTABLE at CIOREQ. 


0 

2 

4 6 8 

u+ 

1 

8+— 

1 

NEXTCCWP 

PNTRDCON 

|JSPARE | NUMWDCCW | 

| JDEVICE | 

16+— 
1 


CCWLIST 1 

i 

+-— 


”7 

1 


where: 

NEXTCCWP is a pointer to the next CCWPKG or zero if it is the last. 

JSPARE are flag bytes for processing; the second byte contains the parameters (bits in 
R2 24-31) of the call to RDCONS or WRTCONS for the I/O, for example, NORET=X'04', 
OPERATOR=X'20'. 

NUMWDCCW is the size of this package in doublewords. 

PNTRDCON is a pointer (zero if none) to a RDCONPKG which becomes a CPEXBLOK for 
CPSTACK upon completion of this I/O operation. 

JDEVICE is the terminal address. 

CCWLIST is one or more (depending upon terminal type and operation) CCW's to perform 
the I/O. 
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CORTABLE 


v 


The CORTABLE contains a 16-byte entry for each 4096 bytes of real memory. It is 
created by CPINIT at system initialization time, depending on the size of real memory. 
The relative position of the entry indicates the core address of the page described. Its 
format is as follows: 


0 2 4 


Pointer 

to SWPTABLE Entry 

Lock MSK| 

UTABLE Pointer 

Unused 

Unused 

| Lock CNT 


where: 

The first four bytes contain a pointer to the corresponding SWPTABLE entry for the 
virtual page which currently occupies this real page (or zero if not in use). 

The Lock MSK is a one-byte availability indicator. The bit X'80' indicates that the 
page is in transit. The bit X'40' indicates a nonzero Lock CNT. The bit x'20' 
indicates that the lock command has been issued for this page. 

The UTABLE Pointer points to the user whose page is in that core space. A value of 
X'OOFFFFFF' indicates that the page is available. If the UTABLE Pointer contains *CP*, 
that core space contains the CP nucleus; if FREE, it is for CP's free storage. 

The Lock CNT is an integer indicating the number of outstanding locks on this real 
page for input-output purposes. The maximum lock count is 65,535. 
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CPEXBLOK 


A CPEXBLOK represents a request for some CP-67 program execution that has been 
previously deferred pending an event. The CPEXBLOKs are chained to the desired user's 
UTABLE, and have the following format: 

0 4 8 

+-+-+ 

0 |CPEXNEXT |CPE XADD | 

+-+-+ 

8 |CPEXREGS I 

I I 

I I 

+-+---+ 

48|CPEXMISC | 

+-+ 


where: 

CPEXNEXT is a pointer to the next CP request block if any. 

CPEXADD is the instruction address to resume CP execution. 

CPEXREGS are the 16 general registers saved when the deferred execution request was 
set up. 

CPEXMISC is for miscellaneous use by the routine that created the block. 
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CPFDENT 


The CPFDENT block is the description of an entry in the system file directory which 
resides on the system residence volume. It is contained in a data record which is 
described in CPFRECRD. Its format is as follows: 


0 

2 4 

6 

8 

o 1 

8 1 

CPFDNAME 

CPFV0L1 

1 

jxxxxxxxx1 

10 | 

CPFDPOS 


1 


where: 

CPFDNAME is the eight-character file name. 

CPFV0L1 is the volume label of the disk volume containing the first record. 

CPFDPOS is the position within the first volume of the first record - in the format 
BBCCHHRx. 
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CPFFDBLK 


There is one CPFS file descriptor block for each open file in the Control Program 
File System routines (CPFILE). Its format is as follows: 



0 

2 

4 

6 

8 

0 

1 

CPFNEXT 

1 

CPFRDEV 

1 

8 

1 


CPFNAME 


1 

10 

1 

CPFVOLID 

|C*1 

|C*2| 

18 

1 


CPFFDPOS 


1 

20 

28 

|CPFUPDPT|CPFRDPT |CPFBYTER|xxxxxxxx| 

| CPFBUFAD | CPFPQUE | 


where: 

CPFNEXT points to the next open file. 

CPFRDEV points to the real device of the current record being read. 
CPFNAME is the eight-character file name. 

CPFVOLID is the volume identification of the current record. 

C*1 - CPFSTAT is the file status: 

X'80' indicates file open for writing; 

X'40' indicates file open for reading. 

C*2 - CPFLOCK is the file lock (for use by writing and updating). 

CPFFDPOS is the position of the current record on the real device. 

CPFUPDPT is the pointer for the update function. 

CPFRDPT is the pointer for the read function. 

CPFBYTER is the count of the bytes remaining to be read or updated. 

CPFBUFAD is the buffer address for this open file. 

CPFPQUE is the queue of locked file requests (not implemented). 
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CPFRECRD 


The following is 
system-owned tracks: 


a description of the record format of all CPFILE records 


on 


0 2 4 6 8 

+-+-+- + - + 

0 I CNEXTVOL |xxxxxxxx| 

+-+-+ - + - + 

8 I CNEXTPOS | 

+-+-+ - + - + 

10 | CRECLNG | | 


I I - 829 Bytes 

I CPFDATA I 


+-+-+-+- + 


where: 

CNEXTVOL is the label of the pack containing the next record. ( No te: A zero entry 
indicates that this is the last record.) 

CNEXTPOS is the position of the next record within the pack specified by CNEXTVOL. 
CRECLNG is the number of valid data bytes in CPFDATA. 

CPFDATA is the actual data in the record, which may be user directory files, machine 
description files, or the system directory itself. 


Note: All physical records are CPRECSZ bytes long (currently 829) . CRECLNG establishes 
the end of the valid data in the buffer. Logical records, which are of a length defined 
by the calling program to CPFILE, are not split over physical records. 
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EXTUTAB 


There 

information 


is one EXTOTAB for each virtual 67 in the system, 
peculiar to a virtual 67; its format is as follows: 


It contains all the 


) 2 

4 

6 

VCRO 

1 

VCR 1 

— 


_ 

VCR 1 4 

1 

VCR 1 5 

SHADVCRO 

| E* 1 |E*2|RESERVED 

COPYSEGT 

1 

IMAGESGT 


where: 

VCRO to VCR 15 are the contents of the virtual control registers 0 to 15. 

SHADVCRO is a pointer to the shadow segment table. 

LSTBYTST (E*1) is the last byte of the free storage area address reserved for the 
shadow segment table. 

NBVSEGT (E*2) contains 0 if the virtual machine is using only segment 0, and 1 if not. 

COPYSEGT contains the length of virtual segment 0 (minus 1) if the virtual machine is 
using only segment 0; otherwise, it contains the address of the copy of the virtual 
segment table currently in use. 

IMAGESGT contains the first virtual segment table entry if the virtual machine is 
using only segment 0; otherwise, it contains the address of the image of the shadow 
segment table, with the unavailable bit in each entry. 
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IOTASK 


There is one 
A task is active 
block is created 
until the device 
format is: 


IOTASK block for each user selector channel task active in the system, 
from the time the user performs the SIO operation (at which time the 
from free storage and queued onto the appropriate channel task list) 
is freed (at which time the block is returned to free storage). Its 


2 

4 

6 8 

TASKRDEV 

TASKPRT 

1 

|TP* 

TASKRCU | 

|TF* |TASKVADD| 

TASKUSER 

1 

TASKCAW | 

TASKIRA 

I 

TASKMISC | 

1 1 


where: 

TASKRDEV is the pointer to the real device control block for this task. 

TASKRCU is a pointer to the real control unit on which this task is being executed. 

TASKPNT is the pointer to the next task on the list strung on the channel. 

TP*-TASKPATH contains a bit in the position corresponding to the control unit on which 
the task is to be executed; this bit is used to scan for availability of the control 
unit. 

TF*-TASKFLAG contains a bit pattern to indicate task status. The following bits are 
defined: 

X'80' reserved for future use 
X'40' task used for paging 
X'20' error in this I/O operation 
X'10' CP-67 I/O (paging,spooling,etc.) 

X 8 08' CP-67 split seek 

X'04' channel free on this interrupt 
X'02' processing CC 1 for this task 
X'01• stand-alone seek operation 

TASKVADD is the address of the virtual device originating the input-output request. 

TASKUSER is a pointer to the appropriate user's UTABLE block. 

TASKCAW is a pointer to the real channel command list for this operation. 

TASKIRA is a pointer to the routine which will be given control on any interrupt 
resulting from this operation. If a nonzero condition code is encountered on the 
SIO for this task within the CHFREE module, control will be passed to the TASKIRA, 
with register 0 containing the condition code. On an interrupt, register 0 will 
contain a zero to so indicate. 

TASKMISC is a slot which may be used by the originator of the IOTASK block for 
whatever purposes required. 

For user selector channel operations, TASKMISC holds the values of registers 6, 7, 
and 8 (three words) which are the addresses of the virtual channel, control unit, 
and device blocks respectively. These values are used to re-load the same registers 
upon receiving the I/O interrupt. 
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Mot e; The IOTASK for 
control blocks and is 
cases, only the first 


CP-initiated I/O functions is generally associated 
often integrated with them (for example, MVIBUFF) 
four doublewords of the IOTASK are present. 


with other 
In these 


logcdata 

LOGCDATA is a description of the format of the error records saved by CP 67 for 
channel checks: 


0 

2 

4 

6 

8 

0 +- 




--+ 


| LOGSNSE I LOG |LOG| 

| |CODE|TYP| 

8 +-+-+-+- + 

I LOGVOLID |LOGADD R | 


16+- 

-+ 


-+- 

-+ 

1 

LOGDATE 

| unused | 

24 +- 

-+ 


-+- 

-+ 

1 


LOGCSW 


1 

32+- 

-+ 


-+- 

-+ 

i 


LOGIOPSW 


1 

40 +- 

-+ + 


-+- 

-+ 

1 


LOGIOPSW 


1 

64 +- 

-+ 


-+- 

-+ 

1 


LOGCAW 


1 

68+- 



-+- 

-+ 


where: 

LOGSNSE, LOGCODE, LOGTYPE, LOGVOLID, LOGADDR, LOGDATE and LOGCSW are the same as in 
the LOGIDATA control block. 

LOGIOPSW is the old I/O PSW which was stored at the time of the error. 

LOGCHLOG contains the channel logout data. 

LOGCAW contains the channel address word at the time of the error. 
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LOGIDATA 


LOGIDATA is a description of the format of the error records saved by CP-67 for I/O 

G1- IT O IT S • ' 


0 +- 



1 

LOGSNSE 

|LOG |LOG| 

1 

8+- 


|CODE|TYP| 




1 

1 6 +- 

LOGVOLID 

|LOGADDR | 

1 

24 +- 

LOGDATE 

I unused | 

1 

32+- 

LOGCSW 

1 

1 

1 04+- 

LOGCCWS 

1 

i 

112+- 

LOGSKLOC 

1 


where: 


LOGSNSE contains the six I/O sense bytes. For a 3420 device, this field is unused. 
LOGCODE contains the type of I/O or channel error. 

LOGTYPE is the type of device upon which the error occurred. 

LOGVOLID is the volume serial number of the device upon which the error occurred (if 
Known to CP) , ' 

LOGADDR is the channel/unit address of the erring device. 

LOGDATE contains the date and time of the error. 

LOGCSW contains the channel status word at the time of the error. 

LOGCCWS contains the failing CCW string (up to nine CCW's). For a 3420 device, the 

• -, d ° Ub i® W °f d ® contain the 24 sense bytes. The remaining 6 double words contain 
the failing CCW string (up to 6 CCW's). 

LOGSKLOC contains the last seek address prior to the failure. 
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LOGMDATA 


LOGMDATA is a description of the format of the error records saved by CP-67 for 
machine checks: 


0 

2 

4 

6 8 

0+- 




1 

LOGMDATE 

| LOGMCODE| 

8+- 




1 


LOGMCPU 

1 

184+- 




1 


LOGMPSW 

1 

224+— 



-+---+ 

1 

LOGMGRS 

1 

LOGMGRS | 

352+— 


-+- 


1 


LOGMFPRS 

1 

384+— 


-+- 



where: 

LOGMDATE contains the date and time of the machine check. 

LOGMCODE contains the machine check code. 

LOGMCPU contains the CPU logout data. 

LOGMPSW contains the five old PSW's at the time of the machine check (external, SVC, 
program, machine check, and input-output) . 

LOG MG RS contains the values of the general registers at the time of the failure. 

LOGMCRS contains the values of the extended control registers at the time of the 
failure. 

LOGMFPRS contains the values of the floating point registers at the time of the 
failure. 
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HDENT 


MDENT is the machine description entry created by DIRECT to describe a device in a 
user's virtual machine. It is pointed to by a UFDENT entry. The format of HDENT is as 
follows: 


0 2 4 6 8 

+---+-+-+-+-+ 

0 | MDADR |M*1 |M*2| M DID | 

+-+-+-+-+-+ 

8 | MDID |xxxxxxxx| MDRELN | HDSIZE | 

+-+-+-+-+ 

10 | MDRDPASS | 

+-+ 

18 | MDRWPASS | 

+-+ 


where: 

MDADR is the virtual device address. 

M*1 - MDSTAT is the unit status information: 

UNITEMP X'80‘ indicates temporary device allocation. 

UNITDED X'40' indicates that the real device specified in MDID is to be dedicated 
to this user. 

UNRDONLY X'20' indicates a read-only volume. 

UNITRMT X'10* indicates that spooled output is to be sent to the real device 
specified by MDID. 

UNRWRIT X*08' if on denotes that the device is shareable in write mode. 

UNCONT X'04' if on denotes that the virtual card reader will read all spool files 

as one. 

UNRWMULT X'02' if on denotes that multiple write users are allowed. 

UNRDSHAR X•01’ if on, denotes that the device is shareable for read-only. 

M*2 - MDTYPE contains the virtual device type. 

MDID contains a six-byte volume label for DASD volumes. If UNITDED or UNITRMT is on, 
MDID is of the form "IDccu", where "ecu" is a real device address. 

MDRELN is the cylinder offset for a shared DASD device. 

MDSIZE is the size of the virtual device. 

MDRDPASS is an eight-byte password used to determine eligibility for read-only 
sharing. 

MDRWPASS is an eight-byte password used to determine eligibility for write sharing. 
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MRDEBLOK 


There is one MRDEBLOK for each multiplexer device defined in the system, 
definition is contained in the REALIO module by macros. Its format is as follows: 


0 2 4 6 8 

+ -+-+-+-+ 

0 | MRDEVPNT |MRDEVADD|M*1 |M*2| 

+ -+-+-+-+ 

8 | MUSER | MIRA I 

+ -+-+-+■- - — + 

10 | MRDEVIO | MTASK | 

+ - + - +-+-+ 

18 | MRPNTVIR |M*31 MRDCSHAD | 

+-+-+-+-+ 

20 |MRDERRCT|M*4|M*5 |M*6|M*7 |M*8 |xxx| 
+ -+-+-+-+ 


where: 

MRDEVPNT is a pointer to the next real device block. 

MRDEVADD is the device address of this real device. 

M*1 - MRDESTAT is the real device status: 

X'80' indicates prepare issued (2702 only) 

X'40* indicates HIO issued (2702 only) 

X'20' indicates sense issued 
x*10' indicates not ready 
X'08' indicates enabled (2702 only) 

X'04' indicates ATS terminal (2741 only) 

X'02' indicates device is dedicated 
X'01' disable line 

M*2 - MRDEVTYP contains the real device type number. 

MUSER contains the UTABLE address of the user owning this device. 

MIRA is the interruption return address for this device. 

MRDEVIO contains a pointer to closed files for this device (for spooling operations 
only) . 

MTASK contains a pointer to open MRIBUFF blocks for this device (for spooling 
operations only). 

MRPNTVIR contains a pointer to the virtual device eguivalent to this device (for 
nonspooling operations only). 

M*3 - MRDESENS contains the sense byte information (2702). 

MRDCSHAD contains a pointer to the saved CSH information (2702 only). 

MRDERRCT contains the count of errors on this device. 

M*4 - MRRETRY is the retry counter for attempted error recovery. 

M*5 - MRFTR contains device or line features, such as the SAD number 0,1,2,3, or 4. 
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M*6 - MRIFLAG is the flag for MRIOEXEC: 

MRIDRAIN X'08' drain spooling operations 
MRISPACE X' 04 * force printer to single space 

TERMINAT X'01' terminate spooled I/O when interrupt comes in 

UNSPOOL X'02' punch available for unspooled I/O, that is, accounting cards. 
M*7 - MRWRTFLG is used by CONSINT to identify the terminal. 

M*8 — MRDEBRCT is reserved for future use. 
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MRIBUFF 


The following buffers and their descriptions apply to those blocks used in the 
"unspooling" operations associated with MRIOEXEC and the real hardware. 


MRIBUFF is the buffer for spooled packed data when being handled for the real eguipment. 
It is chained from MTASK in the multiplexer real device block (MRDEBLOK). Its format is: 


0 

2 

4 

6 

8 

+ 



-+- 


1 

o 1 


IOTASK 


1 

1 

1 

+ 




1 

-+ 

1 

20 | 


MRICAW1 


1 

1 

1 

♦ 




1 

-+ 

48 | 


MRINEXT 


1 

+ 




-+ 

50 | 

MRTMPREC | 


1 

♦ 




1 

1 


MRIFILEC 


1 

1 

♦ 

-+- 


-+ -- 

1 

68 | 

MRICOUNT| 



1 

+ 




1 

1 

1 


DATAD 


1 

1 

1 

+ 


-+- 


1 

-+ 

1 

3A8 | 


MRICAW2 


1 

1 

1 

+ 




1 

-+ 

1 

400 | 


DATAP 


1 

1 

1 

+- 

-+- 



1 

488 | 

REGSAVE | 

BADDR 

1 

+ - 

-+ - 



-+ 


where: 

IOTASK is the IOTASK block associated with bringing this buffer to and from the disk; 
four doublewords only. 

MRICAW1 are the CCW's required to bring the buffer off the disk or write it to the 
disk; five CCWs: SEEK, SEARCH, TIC *-8, RD or WRT, NOP. 

MRINEXT is the pointer to the next buffer on the disk; BBCCHHRx, where x is the device 
code (index). 

MRTMPREC (MRIFILEC) : 

MRTMPREC is a pointer to the first TRECBUF block for this file. 

MRIFILEC is a three doubleword area containing a DASD address, a pointer to the 
real device and the userid. When the file is closed, this data is used to build an 
SFBLOK (reader only). 

MRICOUNT is the pointer within the buffer to the next byte to be processed. 

DATAD is the packed data read or written on disk. 
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MRICAW2 are the unit record CCW's required for this buffer. 

DATAP is the output buffer for the PACK routine (card reader) or the output buffer for 
the UNPACK routine (printer and punch). 

REGSAVE is a temporary register save area. 

BADDR is a pointer to the unpacked input-output buffer for unit record data. 


The following is a description of the buffer for the unit record operations chained 
from BADDR of the MRIBUFF block (preceding) : 

0 2 4 6 8 

+-+-+-+-+ 

0 |CUR. CCW|CU R. DAT| CAW |xxxxxxxx| 

+-+-+-+-+ 

I I 

8 | DATA | 

I I 

+-+-+ - + - + 
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HVDEBLOK 


There is an HVDEBLOK for each virtual multiplexer device attached to a user's UTABLE 
(from VMXSTART); its format is as follows: 


0 2 4 6 8 


0 

+- 

1 

MVDEVPNT 

|MVDEVADD|M*1 | M*2 | 

8 

1 

MVPNTREL 

1 

MVI OB | 

10 

1 


MVCSW 

1 

18 

1 

MVDEVIO 

| M*3 

|M*4|M*5|M*6 | 

20 

1 

+- 


MVIXUSER 

-+- 

1 


where: 

MVDEVPNT is a pointer to the next virtual device on the virtual multiplexer channel. 
MVDEVADD is the virtual device address. 

M*1 - MVDESTAT is the virtual device status; the bit definition is the same as the bit 
definition of byte 4 of a CSW, for example, CE=X'08 S , BUSY=X'10'. 

M*2 - MVDEVTYP is the virtual device type number. 


MVPNTREL 

MVIOB is 
terminal 

MV CSW is 


is the pointer to the real terminal (MRDEBLOK). 

the current buffer address for this device; 
I/O buffer. 

the virtual CSW for this subchannel. 


MVIBUFF 


for unit record; or 


MVDEVIO is the pointer to closed files for this virtual device (spooling operations 
only); for terminals (virtual 1052), address of current CCW. 


M*3 - MVSENSE is the sense information for the device. 
M*4 - MVIFLAG are miscellaneous status bits: 


MVIFCCW 

X'01 ' 

MVIFCLOS 

X' 02' 

MVIFRMT 

X' 04 ' 

MVIFSAV 

X' 08 ' 

MVIXFER 

X* 10' 

MVIEXIT 

X' 20' 

MVICONT 

X ' 4 0 ' 
X ' 8 0 ' 


current CCW is first in chain 

file closed by CONSOL function 

spooled output to go to MVPNTREL 

keep virtual card reader files after use 

punch file to be made a card reader file for MVIXUSER 

MVIOEXEC has done EXIT, go to DISPATCH 

continuous card spooling 

reserved for future use 


M*5 - MVIOKEY is the virtual CAW storage protection key. 

M*6 - MVIOBRK is a flag to indicate (X'FF') that the attention key was hit during 
virtual console I/O. 


MVIXUSER - for punch or printer; contains userid to transfer output if MIVXFER list 
in MVIFLAG is on; for terminals (virtual 1052), contains current CCW being 
processed. 
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MVIBUFF 


This section is a description of the various buffers used by the spooling mechanism 
of the Control Program. 

MVIBUFF is a buffer for packed spooled data. It is chained from MVIOB in the 
multiplexer virtual device blocks and has the following format: 


0 2 4 6 8 

+-+--+ - + - + 

I I 

0 | IOTAS K | 

I I 

I I 

+-+-+-+ - + 

20 |M VICA W 1 | | 

+-+ j 

I I 

I I 

I i 

+-+-+ - + - + 

48 | MVI NEXT | 

+-+-+-+-+ 

50 | MVTMPREC | | 

+-+ | 

| MVIFILEC | 

I I 

+-+-+-+-+ 

68 |MVICOUNT | | 

+-+ | 

I I 

| DATAD | 

I I 

+-+-+ - + - + 

3A8| M VICC W | 

+-+-+ - + - + 

3B0| Temporary Save Area | 

+-+-+-a-+ 

I I 

3 B8| DATAPAC | 

I I 

+-+-+-+-+ 

I I 

3D81 DATAP | 

I I 

+-+-+-+- + 


where: 

IOTASK is the task control block for reading or writing the disk buffers; four 
doublewordsords only. 

MRICAW1 are the CCW's required to write or read the buffer to secondary storage; five 
CCW's: SEEK, SEARCH, TIC *-8, RD or WRT, NOP. 

MVINEXT is the pointer to the next record; BBCCHHRx, where x is the device code. 
MVTMPREC (MVIFILEC) : 

MVTMPREC is a pointer to the first TRECBUF block for this file. 

MVIFILEC is a three doublewod area containing a DASD address, a pointer to the real 
device and the userid. When the file is closed, this data is used to build an 
SFBLOK (printer and punch only). 
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MVICOUNT is the byte address within the following data area, DATAD, of the next byte. 
DATAD is the buffer of packed data (830 bytes long). 

MVICCW is the user's current CCW. 

DATAPAC is the output buffer for the PACK routine (see "PACK" in Section 5). 

DATAP is the input buffer for the PACK routine or the output buffer for the UNPACK 
routine, depending on the spooling function being performed. 


PAGTABIE 


There is one PAGTABLE for each user; its format is as follows: 


0 12 15 

+ - - - +-+ - + 

| SWPTBI PNT | 

+-+ - +-+ 

| Page Add. | |xxxx| 
+-+-+-+ 


I I 

I I 

I I 

I I 

I I 

I I 

+-+-+-+ 

I III 

+-+ -+-+ 


where: 

SWPTBL PNT is a pointer to the SWPTABLE associated with this PAGTABLE, one fullword 
in size. The remainder is made up of halfword entries. Each entry describes the status 
and main storage address of a virtual memory page, as follows: 

Bits 0 through 11 are the address of a page in real memory (if resident). 

Bits 12 through 15 are a control field: 

Bit 12 indicates status of the page: 

0 indicates core resident. 

1 indicates not in core. 

Bits 13-15 are reserved for future use (they must be zero for the 360/67). 


up to 

256 Entries 

512 Bytes maximum 
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RCCWLIST 


There is one RCCWLIST for each user CCW list; its format is as follows: 



0 2 

4 6 

~ +-+- 

8 

- + 

0 

I VLIST 

| TADDR 

-+-*-+- 

1 

- + 

8 

1 VCNT | RCNT 

| IDENT | SCNT 

~+-*-+--- 

1 

- + 

10 

|R * 1| RADDR 

|R*2 |R*3|RBYTE 

1 

- + 


where: 

VLIST is the location of CCW's in user's program. 

TADDR is the real address of the next CCW list (0 if none). 

VCNT is the number of user's CCW's in this list. 

RCNT is the number of CCW's required to represent user's list. 

IDENT is the halfword marker (used in UNTRANS); X'FFFF'. 

SCUT is the number of doublewords reserved for control data. 

R*1 - RCOMND is the actual CCW op-code for the channel. 

RADDR is the real (translated) address for .the data transfer or argument. 
R*2 - RFLAG is the real flag field for the channel CCW's. 


RCNTL is 
[' s: 

the control field used by 

CCWTRAN 

RCXIS 

X' 80 ' 

check for ISAM read 


RCSUDO 

X' 40' 

pseudo 2311 

or 2314 


RCUTIC 

X' 20 ' 

untranslated 

TIC 


RCIO 

X' 10' 

I/O CCW 



RCGEN 

X' 08 ' 

CP-generated 

CCW 


RCDATA 

X' 04« 

CP-generated 

CD 


RCO 2 

X' 02 ' 

reserved for 

future 

use 

RCO 1 

X' 01 ' 

reserved for 

future 

use 

is the re 

al CCW 

data count. 
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RCHBLOK 


There is one RCHBLOK for each real channel; its format is as follows: 


0 2 4 6 8 

+-+-+-+-+ 

0 | RCHANPNT | RCDLIST | 

+-+- - —+-+--+ 

8 | TASKLIST |R*1|R*2 | RCUCOUNT| 

+-+-+-+-+ 

10 |RCHANADD| TASKCNT| TASKLAST | 

+-+-+-+-+ 

|RCHCOND |R*3|R*4 |R*5|R*6 |RESERVED| 
+ -+-+-+-+ 


where: 

RCHANPNT is the pointer to the next channel. 

RCULIST is the pointer to connected control units. 

TASKLIST is the pointer to pending tasks. 

RCUACT (R*1) is the active control unit mask. 

RCHSTAT (R*2) are channel status bits: 

X ' 8 0 ' indicates channel busy. 

X'40' indicates rescan required in CHFREE. 

RCUCOUNT is the count of attached control units. 

RCHANADD is the real channel address. 

TASKCNT is the count of pending tasks. 

TASKLAST is the pointer to last task on this channel. 

RCHCOND is channel status after a channel error (**). 

R*3 RCHDATCK count of channel data checks 
R*4 RCHCONCK count of channel control checks 
R*5 RCHIFCC count of interface control checks 
R*6 RCHANCC count of channel chaining checks 

(**) channel error is defined as any error indicated by R*3, R*4, R*5 r or R*6. 
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RCUBLOK 


There is one RCUBLOK for each real control unit; its format is as follows: 



0 

2 

4 

6 

0 

1 

RDEVLIST 

1 

RCUPNT 

8 

1 

RACTCHAN 

1 R* 11 

RESERVED 

10 

1 

RCUADD | RCUSTATIRTAILCNTIRDECOUNT 

18 

1 

+ - 

RCUTAIL1 

1 

RCUTAIL2 


where: 

RDEVLIST is the pointer to connected devices. 

RCUPNT is the pointer to next control unit. 

R ACTCHAN is the pointer to active channel; zero value initially; filled in 
RCUTAIL1 after SIO. 

R*1 - RCUPATH is the path for this control unit. 

RCUADD is the real control unit address. 

RCUSTAT is the real control unit status (not currently used) . 

RTAILCNT is the tail count for this control unit (not currently used). 

RDECOUNT is the count of devices on this unit. 

RCUTAIL1 is the pointer to channel for tail 1. 

RCUTAIL2 is the pointer to channel for tail 2 (not currently used). 
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RDCONPKG 


There is one RDCONPKG for each CCWPKG that requires control 
completion of the associated I/O operation. Its format is: 


to be returned upon 


i 2 

4 

6 

8 

NEXTCPRQ 

1 

JSRETADD 

1 


JSREGS 


1 

— 



__ 7 _ 

JSPARE3 

1 

JSPARE4 

i 


where: 


NEXTCPRQ 

JSREADD 

JSREGS 

JSPARE3 

JSPARE4 


is a pointer (always zero until queued by CPSTACK). 
is the return address (becomes CPEXAED in CPEXBLOK) . 
are reqisters for return, 
is a spare, 
is a spare. 
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RDEVBLOK 


There is one RDEVBLOK for each real device; its format is as follows: 



0 2 

4 

6 

0 

I RDEVPNT 

1 

RDEVCU 

8 

| RDEVADD | R =«= 1 | 

R*2 | 

RDEVTASK 

10 

1 RVOLSER 

|RDEVCODE 

18 

I RDEVALLN 

|RDEVERCT|RDEVSTAT 

20 

I RDEVUSER 

|RATTVADD|R*3 |R*4 

28 

|C*0| C*2|C*3| 

C*4|C*7| RDEVTMON 

30 

| (CONT) | 

RDEVSEN 

38 

I RDEVSEN = 24 
| RDEVBLOK ONLY 

SENSE 

BYTES FOR 3420 

48 

! (CONT) | 

-+- 

(UNUSED) 


where: 

RDEVPNT is a pointer to the next device on the chain. 

RDEVCU is a pointer to the real control unit. 

RDE VADD is the real device address (control unit and device portions only) . 

R*1 - RDEVTYPE is the device type code. 

R*2 - RDECUPTH is the control unit path for this device. 

RDEVTASK is a pointer to the attached task block (if active). 

RVOLSER is the six-character EBCDIC volume label (if DASD volume and attached to the 
system). 

RDEVCODE is the halfword identification number (index into RDEVTABL). 

RDEVALLN is the pointer to the allocation table (if CP-owned). 

RDEVERCT is the error count for this device. 

RDEVSTAT is the real device status: 

RDEVOWND X'80' indicates CP-owned volume (DASD only). 

RDEVATTD X'40' indicates dedicated (nonshared) device. 

RDEVDED X'20’ indicates channel, control unit, and device block dynamically 
created by DEDICATE. 

RDEVSEEK X'08' indicates a seek is in progress. 

RDEVPOSD X'04' indicates 2311,2314 comb positioned for next read/write 
operation. 

RDEVSYS X'02' device attached to system. 

RDEVUSER is the UTABLE pointer for the current user (for dedicated devices). 

RATTVADD is the current user's virtual address (for dedicated devices) . 

R*3 — RDEVFTR Real device features. Used to describe dedicated communication lines 
SAD value. 
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R*4 - RDEVSLEN device sense byte count 
C*0 - command reject counter 
C*2 - bus out parity error counter 
C*3 - equipment check error counter 
C*4 - data check counter 

C*7 - seek check (sense bit 7, byte 0) counter 

RDEVTMON is 5 bytes for attached time for a dedicated device (MMDDYY HHMM). 

RDEVSEN contains the sense bytes for the device following a unit check. All devices 
except 3420 have only 6 sense bytes maximum available. For 3420 devices, the RDEVBLOK 
is generated with 3 more double words at the end. The RDEVSEN field is considered to 
be 24 bytes long for 3420's with 6 unused bytes at the end. 
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RECBUF 


One RECBUF block is created for each cylinder "allocated* 
of the RECBUF block chain is RECSTART. Its format is: 


to a spool file. 


The start 


0 

2 

4 6 

8 

1 

RECPNT 

|R*1 |R*2|R*3 

+-*— + 

| R*4 | 

1 

1 

1 

1 


RECDATA 

i 

i 

i 



_ 

i 


where: 


RECPNT is the pointer to the next RECBUF block. 

R*1 “ RECUSED is the number of records in use on this cylinder. 

R*2 - RECMAX is the maximum number of records available on this cylinder. 
R*3 - RECCYL is the cylinder number of this cylinder. 

R*4 - RECCODE is the real device code for the device for this cylinder. 
RECDATA contains bit indicators for records in use: 


For a 2314, two bytes for each pair of even-odd tracks. There are 15 records 
per pair of tracks, and each bit (0-14) indicates whether the correspondinq 
record (1-15) is available. Bit 15 is always set to 1. 


For a 2311, two bytes for each track. There are four records per track. Bits 
4 through 15 are set to 1. A 1 indicates that the 
use. 


corresponding record is in 
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SAVEAREA 


The active SAVEAREA format is: 


0 4 8 

+ - —-—-—- - +-+ 

| RETURN ADDRESS | CALLERS R12 I 

+-+ - “+ 

| CALLERS R13 | I 

+ - + | 

| 21 WORD REGISTER SAVEAREA I 

| and WORKAREA I 

- -- 


where: 

RETURN ADDRESS is the instruction address immediately following the SVC 8 call which 
obtained the current save area. 

CALLERS R12 is the base register of the calling routine. 

CALLERS R13 is the address of the active save area. 

21 WORD REGISTER SAVEAREA and WORKAREA is normally used by the ENTER macro to save the 
caller's registers. Up to 16 registers can be saved, although only registers 0-11 are 
significant. Words not used for register saving can be used as a scratch area by the 
called program. 


The inactive (available) SAVEAREA format is: 


0 4 8 

+ - +-+ 

| NEXTSAVE | I 

+ - +-+ 

I I 

I I 

I I 

- - -— + 


where: 

NEXTSAVE is a pointer to the next 24-word save area in the chain of available save 
areas. The pointer is updated in the last save area on the chain when a save area is 
released by SVC 12 or SVC 16. 
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SEGTABLE 


CP-67 contains one SEGTABLE for each user; its format is as follows 


0 1 4 

+ - -+-—— —— - —-——— - + 

|PAGE CNT| PAGE TABLE ADDRESS | 

+-+- -+ 


I | 16 Entries 

I | 64 Bytes 

I I 

I I 

+ - +-+ 

I I I 

+-+-+ 

Each four-byte entry defines a page table, as follows: 
Byte 1 - Number of page table entries (less 1). 

Bytes 2-4 - Address of page table origin. 
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SFBLOK 


SFBLOK is a control block for a closed spool file. The format is as follows: 

0 2 4 

+-+-+ 

| Pointer to next | 

+-+- 

| BB | CC | 

+-+-+ 

| HH | R |Code| 

+-+-+ 

| MRDEBLOK I 

+-+-+ 

| Userid I 

I I 

I I 

+-+-+ 


When this file is being used by MRIOEXEC, the pointer is removed from the chain and 
hooked up to MRDEVIO in the multiplexer real device block (MRDEBLOK). 

MRDEBLOK is filled in if the spooled output is directed to a particular device. 

The high-order byte of this field is also used for a repeat of the output in MRIOEXEC. 
An x'80' means output is directed to the MRDEBLOK address in the remaining three bytes. 
An X'4x' means repeat the output up to x times. 
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SWPTABLE 


The SWPTABLE contains an eight-byte entry for each entry in a user's PAGTABLE. It is 
generated at LOGON time, its length depending on the size of a user's virtual memory. It 
is in the following format: 


0 12 3 4 


+-+- 

I S*1 | 

VPAGNO 

- + ~ 

1 

KEY 1 

1 

KEY2 

|RDEVCODE1 
+-+- 

CYL 

1 

HEAD 

1 

RECORD 


where: 

S*1 has the following meaning: 

X'80' Transit bit, page in transit (in) 

X'40' Recompute bit, DASD address is source of page, get new DASD address if 
write is required 

X'20' Transit bit, page in transit (out) 

X'10' Shared bit, page is shared and protected 
X'08' First half page was used since last SSK (if in core) 

X'04' First half page was modified since last SSK (if in core) 

X' 02' Second half page was used since last. SSK (if in core) 

X'01' Second half page was modified since last SSK (if in core) 

VPAGNO is the virtual page number of the user using the page. 

KEY1 and KEY2 are the virtual keys for the bottom and top halves of this page, 
respectively. 

RDEVCODE is the real device code of the device containing this page. 

CYL, HEAD, and RECORD are the physical location of the nonresident page on the device 
indicated by RDEVCODE. 
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TRECBUF 


One TRECBUF block is created for each cylinder of an 'opened* spool file that has 
had data written on it. Whenever a spool file is 'closed' and the SFBLOCK has been 
built, the TRECBUF block chain associated with it is returned to free storage. If a 
system failure occurs, module CHKPT will deallocate the space occupied by the open files 
by exclusive ORing each TRECBUF block against the corresponding RECBUF block for the same 
cylinder and device. The start of a TRECBUF block chain is either MRTMPREC or BVTMPREC. 
Its format is: 


0 2 4 6 8 

+ - + - + - + - + 

0 | TRECPNT |TRECUSED|T*1 |T*2| 

+---+-+-+ 

8 I I 

| TRECDATA | 

I I 

+-+-+-•-+----+ 


where: 

TRECPNT is a pointer to the next TRECBUF 

TRECUSED contains count of records in use 

T*1 - TRECCYL contains cylinder number 

T*2 - TRECCODE contains the device code 

TRECDATA contains bit indicators for records in use: 

For a 2314, two bytes for each pair of even-odd tracks. There are 15 records 
per pair of tracks, and each bit (0-14) indicates whether the corresponding 
record (1-15) is available. Bit 15 is always set to 1. 

For a 2311, two bytes for each track. There are four records per track. Bits 4 
through 15 are set to 1. A 1 indicates that the corresponding record is in 
use. 
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TREXT 


This control block is built as a UTABLE extension when the user invokes 
functions. 


0 

2 

4 

6 

8 

+- 

-+- 


-+- 

- —-+ 

| TRSVCI 1 TRBRI | TRSTI | T*1 

|T*2 | 

+- 

—-+-- 

-+- 

-+- 

-+ 

| T*3 

|T*4| UNUSED | 

TRSVCIA 

1 

+- 



-+- 

-+ 

1 

TRBRIA 

1 

TRSTAD 

1 

+- 

-+- 


-+- 

-+ 

1 

TRSTSV 

1 

TREXINS 

1 

+- 

-- +- 



-+ 

1 


UNUSED 


1 

+- 

-+- 

-+- 

-+- 

-+ 

1 


TRSVLCO 


1 

+- 

-+- 

-+- 


-+ 

1 


TRPWK 


1 

1 

+ 

+ 

+ 

1 

1 

/ 


TRLIN 


1 

/ 

/ 

I 




/ 

1 

+-- 


_ + _ 

--+- 

--+ 


where: 


TRSVCI - 

saved 2 

bytes of next instruction. 

TRBRI - 

saved 2 

bytes of branch-to instruction. 

TRSTI - 

saved 2 

bytes of address stop instruction 

T*1-TRCNSL - 

console 

tracing options. 

T*2-TRPRT - 

printer 

tracing options. 


T*3-TRINTF - interrupt type flag. 
T*4-BRSW - processing control switch. 


TRSVCIA 


TRLP 

X' 80' 

TREXN 

X* 40' 

TRRD 

X' 20' 

TRPB 

X' 10* 

TRBNT 

X' 08' 


next sequential instr 
next sequential instr 
break called at each 
previous instruction 
tracing branch interr 


uction is a LPSW 
uction is an EXECUTE 
TRINT entry 
is a branch 
upt has occurred 


next instruction address. 


TRBRIA - 
TRSTAD - 
TRSTSV - 


branch-to instruction address 
address stop location, 
address of executed NSI. 


TREXINS 


executed NSI contents. 


TRSVLCO - 
TRPWK - 
TRLIN - 


saved location zero 8 bytes, 
pack data work area, 
output data buffer. 
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UFDENT 


The following is a description of an entry in the user file directory (U.DIRECT) 
which contains information about the user and his access privileges to the system: 


0 2 4 6 8 

+ - + - +-+- - -+ 

0 | UFDID I 

+-+-+-+-- + 

8 | UFDPASS I 

+ - + - +-+-+ 

10 | UFDACCT I 

+-+-+-+-+ 

18 | UFDMDEF I 

+-+-+-+-+ 

20 |U*1| U*2|U*3|xxxx| 

+ - + - + 


where: 

UFDID is the eight-character user identification. 

UFDPASS is the eight-character user password. 

UFDACCT is the user accounting information. 

UFDMDEF is the eight-character file name of the user's machine description file. 
U*1 - UFDPRIV is the user's privilege class code. 

U*2 - UFDPRIOR is the user's priority code (1-9). 

U*3 - UFDOPT is the virtual machine option. 
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UTABLE 


There is one UTABLE block for each user in the system. It is the primary control 
block from which all user blocks are strung. It completely reflects, with the virtual 
I/O blocks, the status of the virtual machine. Its format is: 


0 


0 

+ 

I 

+ 

40 | 
+ 

60 | 

+ 

68 | 

+ 

70 | 


80 

88 

+ 

90 | 

+ 

98 I 


A 8 


+ 

B 8 | 

+ 

CO | 

+ 

C8 | 

+ 

DO I 


+ 

E0 | 

+ 

E8 i 

+ 

F0 | 

+ 

F8 | 

+ 

100 | 

+ 

108 j 
+ 

110 | 

+ 

1 18 | 
+ 

120 | 

+ 

128 

+ 





4- 

VGPR's 


1 


-4-- 


4- 

VFPR's 


l 




4- 


VPSW 


1 

- + - 

- + - 

-4-- 

4- 

SEGTABLE 

1 

VMACHSIZ 

1 




4- 

VCHSTART 

|VCHCOUNT| PENDING| 

- + - 


- + - 

4- 

BLOCKS |VMSTATUS| 

TIMEUSED 

1 


-4-- 


4- 

NEXTUSER 

I 

VTIMER 

l 

- + - 

-+- 


4- 


USERID 


1 

-+- 



4- 

DVTOT 

1 

USYSTAB 

1 




4- 

VMXSTART 

1 

VMXPOINT 

1 



-+- 

4 

ULOCKL |U*1 

| U*2 | 

UTREXT 

l 

-+- 



4 

CIOREQ 

| NCIOREQ |DNMPAGE 

1 


- + - 


4 

VMXCOUNT|SEGTBDSP| 

ADEXTAB 

1 


-4-- 

-+- 

4 

TIMEON 


|U*3| U*4| 


-4-- 

- + - 

4 

ACCTNG 


1 

-+- 

-4-- 


4 

TIMINQ 

|NUMPAGES|PRIORIT 

I 

-+- 

-+- 

-+- 

4 

VTOTTIME 

| U*5 

|U*6 | UPIOCNT | 



-4- - 4- - 

4 

UVIOCNT | 

UCPCOMND 

l 


--+- 


4 

TIMSTAMP 

1 

NEXTRTMR 

1 


-4- - 


4 

NXTQ 

1 

PR VQ 

1 


-fc— 4- - 


4 

VM USER 1 

1 

VMUSER2 

l 

-4-- 

--4-- — 


4 

VMUSER3 

I 

VMUSER4 

1 


-4- - 

-+- 

4 

USERINST 

|TRSW |x X X| 


-4 - 


4 

VMSSIO 

l 

VMPNCH 

1 

-+ - 



4 

VMLINS 

l 

VMCRDS 

I 

- 4- - 

-- 4- - 

-+- 

4 

VMPGRD 

1 

UPPCNT 

1 



- 4- - 

4 


RESERVED 


1 


- + - 

-+- 

4 


RESERVED 


l 

-+- 


- 4- --- 

4 
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where: 


VGPR's are the user's 16 general purpose registers saved on an interrupt. 
VFPR's are the user's four double-precision floating point registers. 

VPSW is the user's virtual PSW. 

SEGTABLE is a pointer to the user's segment table. 

VMACHSIZ is the size of the virtual machine (last valid address +1). 
VCHSTART is a pointer to the first selector channel block. 

VCHCOUNT is the number of virtual selector channels attached. 

PENDING contains a bit for each channel which has a pending interrupt. 


ULOCKS is reserved for future use. 

VMSTATUS is a halfword containing bits reflecting the state of a user machine: 


Byte 0 

PAGEWAIT X'80' 
IOWAIT X'4 0' 
CFWAIT X'20' 
SYSOPBIT X'10' 
COMSW X'08' 
VIRCOMSW X'04' 
INLOGOFF X'02' 
INLOGON X'01' 


user waiting for a page or pages 

user SIO being analyzed 

user in console function mode 

user is system operator 

executing console function 

virtual console function in execution 

user in logoff process 

user in login process 


Byte 


X* 80' 
X' 40' 

RSTMPED X'20' 
X' 10' 

X' 08 ' 
X' 04' 
X' 02' 


indicates that the current runuser has not been charged for virtual 
time 

reserved 

indicates the real timer has been stamped 
the user has been dropped from queue 
user is runnable 
user is in a Q 

user is running shared system 


TIMEUSED is the 


total time used since logon 


(problem state plus CP overhead). 


NEXTUSER is the 


pointer to the next user's UTABLE. 


VTIMER is the user's virtual timer. 

USERID is the eight-character user identification. 

DVTOT is the VTOTTIME value on entry to a queue or the virtual time used during the 
last time in a queue. 

USYSTAB is the pointer to the table for the system which this user is sharing. 

VMXSTART is the pointer to the first virtual device block on the virtual multiplexer 
channel. 

VMXPOINT is the pointer to the interrupting device. 


ULOCKL is reserved for future use. 
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0*1 - UOPTDEF is the user options from the DIRECTORY: 

RTIMR X 1 80' real timer 

ISAM X'40< self-modifying DASD CCW checking 

V67 X'20' user can operate in virtual extended PSW mode 

0*2 - PRCLASS is the user's privilege class and priority level: 

SYSCTLOP X'80' indicates system operator. 

SYSADMIN X'40' indicates system administrator. 

SUBSYSOP X'20' indicates subordinate system operator 

SYSUSER X'10' indicates system user. 

The low-order four bits contain the user's priority level (1-9). 

UTREXT built when user invokes tracing functions. 

CIOREQ is the pointer to pending console operation requests. 

NCIOREQ is the number of pending console operations. 

DNMPAGE is paging activity value for this user. 

VMXCOUNT is the count of multiplexer devices for this user. 

SEGTBDSP is the displacement of SEGTABLE from start of free storage block. 

ADEXTAB is the address of the UTABLE extension, used for a virtual 67. 

TIMEON is the user time on. 

U*3 - TIMERMOD is the virtual timer mode switch: 

DISCNBIT X'80' user terminal disconnected 
PRIDISP X'40' request for priority dispatch 
MSGBIT X'20' user set MSGOFF 
WNGBIT X'10' ignore warnings 

MULTCH X'08' more than one virtual channel may exist with same channel address 
RUNCP X'04' virtual machine running with console function read active 

UEDIT X'02' do CP line edit on VM console reads 

UATTN X'01' single attention to virtual machine 

U*4 - PAGWCNT is the count of user outstanding page requests. 

ACCTNG is the user accounting information. 

TIMINQ is used by DISPATCH for scheduling. 

NUMPAGES is number of pages the user has in core. 

PRIORIT is priority to reenter the queue. 

VTOTTIME is the total problem state time used by user since login. 

U*5 - PRUSR is the user priority. 

U*6 - CNTRLMOD is the status of the virtual 360/67: 

EXTCM X'80' indicates the virtual machine is in extended control mode. 

INVCRO X'20' indicates that all the tables describing the third-level memory 

have to be rebuilt. 

INVSHADT X'10' indicates that the shadow segment and page tables have to be 
rebuilt. 
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Beset to 


UPIOCNT is the number of page reads done for this user while in a queue, 
zero each time on entry to a queue. 

UVIOCNT is the number of virtual SIOs issued by this user. 

UCPCOMND is the last CP console function executed by the user. 

TIMSTAMP is time stamp at status change. 

NEXTRTMR next user with a real timer. 

NXTQ next user in this runnable list. 

PRVQ previous user in this eligible list. 

VMUSER1-4 for installation use. 

USERINST for saving privileged instructions. 

TRSW trace switch: 



TREXTINT X 1 80' 

trace external interrupt 


TRSVC 

X' 40' 

trace SVC 


TRPRG 

X' 20' 

trace program interrupt 


TRIO 

X' 10' 

trace I/O interrupt 


TRSIO 

X' 08 ' 

trace SIO 


TRBRCH 

X' 04* 

trace all branches 


TRALL 

X' 02' 

trace everything 


TRSTOP 

X'01' 

stop on trace 

VMSSIO 

number 

of selector channel SIO's. 

VMPNCH 

number 

of spooled cards punched. 

V ML INS 

number 

of spooled lines printed. 

VMCRDS 

number 

of spooled cards read. 

VMPGRD 

number 

of pages 

read. 

UPPCNT 

is the 

cumulative page count. 
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VCHBLOK 


There is one virtual channel block for each virtual channel on each user. Its format 
is as follows: 


0 2 4 6 8 


0 

I VCHANPNT | 

VCULIST 

8 

| VCHANADD|VCUCOUNT! 

VCHSTAT|V*1 | XXX 

10 

| VCEUNIT | VNPNDCUI| 

XXXXXXXXXXXXXXXXX 

18 

1 VCHCSW 


where: 


VCHANPNT is the pointer to this user's next virtual channel. 

VCULIST is the pointer to the connected control unit blocks. 

VCHAN ADD is the virtual channel address. 

VCUCOUNT is the count of virtual control units attached to this channel. 

VCHSTAT is the virtual channel status; bit definition for channel status is the same 
as the CSW, byte 4; for example, BUSY=X'10' f CE=X'08'. 

VCHFLAG (V*1) contains miscellaneous flag bits. 

VCEUNIT is the address of the unit for which the pending channel end, if any, 
occurred. 


VNPNDCUI is the number of pending control unit interruptions. 

VCHCSW is the virtual channel status word for channel end type interruptions. 
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V CU BLOK 


There is one virtual control unit block for each virtual control unit; its format is 
as follows: 

0 2 4 6 8 

+-+- +~n -+-+ 

0 I VDEVLIST | VCUPNT | 

+-+-+-+-+ 

8 | VCUflDD |VDECOUNT| VCUSTAT|xxxxxxxx| 

+ -+-+-+-+ 

10 |VCUEUNIT|VNPNDDEI|xxxxxxxxxxxxxxxxx | 

+ - + - + - +-+ 


where: 

VDEVLIST is the pointer to the virtual devices connected to this control unit. 

VCUPNT is the pointer to the next virtual control unit in the chain from the virtual 
channel. 

VCUADD is the virtual control unit address (no channel or device included). 

VDECOUNT is the number of virtual devices attached. 

VCUSTAT is the status of the virtual control unit; bit definition is the same as the 
CSW, byte 4; for example, BUSY=X'10'. 

VCUEUNIT is the unit for which a control unit end condition, if any, is pending. 
VNPNDDEI is the number of pending device interruptions. 
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VDEVBLOK 


There is a virtual device block for each virtual device for each user in the system; 
its format is as follows: 



0 

2 

4 

6 

8 

0 

1 

VDEVPNT 

|V DEV ADD 

|V*1 

I V*2 | 

8 

1 

VPNTREAL 

|VDEVREL 

| VDEVBND | 

10 

1 


VDEVPOS 


1 

18 

1 


VDEVSNSE 

| V*3 

| V*4 | 


where: 

VDEVPNT is the pointer to the next device on the chain from the control unit. 
VDEVADD is the virtual device address. 


V*1 - VDEVSTAT is the virtual device status; bit definition is the same as the CSW, 
byte 4; for example, BOSY=X , 10 , , DE=X"04«. 

V*2 - VDEVTYPE is the virtual device type code. 

VPNTREAL is the real device control block corresponding to this virtual device. 

VDEVREL is the relocation factor within the real, device for the start of this virtual 
device (for DASD only). 

VDEVBND is the size of this virtual device (DASD only) . 

VDEVPOS is the current virtual arm position of this device (as BBCCHH). 

VDEVSNSE is the virtual device sense information (filled when an error is detected on 
the virtual device to save the conditions for shared devices) . 

If the virtual device type is a dedicated 3420 tape (VDEVTYPE = X'C4') then the 

function of VDEVSNSE is different. Since the 3420 provides 24 sense bytes, extra 
space is required to contain them. This is accomplished in the following manner. 
When a unit check occurs on the 3420, 3 doublewords are obtained from CP FREE storage. 
The address of the 3 doubleword area for the 24 sense hyt.es is saved in the word 
located at VDEVSNSE in the VDEVBLOK. Once the sense data is presented to the virtual 
machine through a virtual sense operation, the 3 doubleword area is FRETed (in 
CCWTRAN). The function is repeated for further unit checks on the 3420 device. 


V*3 - VDEVFIG contains miscellaneous device status bits: 


TEMPDEV X'01' 
READONLY X'02' 
V SHARED X'04' 
VDVENBL X'08' 
VDVDIAL X ! 10' 


indicates a TDSK allocation 
indicates read-only status 
reserved for future use 
virtual 2702 line is enabled 
virtual 2702 line is in use 


V*4 - VDEVSLEN 


is the sense byte count. 
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SECTI ON 5: S YST EM MODULE S 


This section consists of descriptions of the modules contained in both CP-67 and the 
stand-alone utilities. They are arranged in alphabetical order according to module name. 
Listed below are the module names with a brief description of each. Table 3 gives the 
module entry points for each module. 


ACCTON - 

ACNTIME - 

ACNTOFF 

CCWTRANS 

CFSCOM 

CFSDBG 

CFSIPL 

CFSMAIN 

CFSPRV 

CFSQRY 

CFSSET 

CFSSPL 

CFSTACH ■ 
CHKCUACT 

CHKPT 

CONSINT 

CONVRT 

CPCORE - 

CPFILE 

CPINIT 

CPSTACK 
CPSYM - 
DEDICATE 

DIAGDSK 

DIAL 

DISPATCH 


DSKDUMP 

EXTEND 

FREE 

IOERROR 

IOINT 

IPL 

LINK 

LOGFILES 

LOGIN 


for individual installations, additional processing and/or checking of users at 

LOGIN time . 

computes and prints on user's terminal the total connect, virtual and actual 

CPU time . 

- for individual installations* a replaceable module for accounting functions at 

LOGOUT time 

- prepares user CCW's for execution by real machine, and creates user CSW at end 

of operation 

- contains the commands WNG, MSG, READY, LOGOUT, SLEEP, and DISCONNECT 

- contains the commands DCP, DUMP, DMCP, DISPLAY, STCP, and STORE 

contains the commands IPL and IPLSAVE 

- calls user console functions and operator functions; entered during BREAK on 

user's terminal, or virtual machine idle state 

- contains the commands ENABLE, DISABLE, LOCK, UNLOCK, SHUTDOWN, KILL, ACNT, 

DIRECT, and D_U_M_P 

- contains the command QUERY 
contains the command SET 

- contains the commands TERM, CLOSE, XFER, SPACE, DRAIN, START, PURGE, SPOOL, 

and REPEAT 

• contains the commands ATTACH, DETACH, and LINK 

- determines control unit status at channel end time based on last CCW executed 

by channel program and device on which it was executed 

- saves accounting records and in-core spool pointers on disk after an ABEND 

condition 

• initializes and identifies remote terminals and processes their interrupts 

- data conversion routines (BINHEX, FPCONV, BINDEC, etc.) for CP-user 

communication 

currently contains constants for the IPL command 

- enables CP-67 to open, read, and close various internal working disk files 

- volume recognition and initialization of core (set new PSW's, compute real 

core size, etc.) for CP-67 

- queues requests for CP service (CPEXBLOK blocks) 
resident loadmap of CP—67 modules and major entry points 

- switches device from MRDEBLOK's to selector channel real device blocks for 

dedicated use 

- responds to diagnose call for a specialized I/O task on a 2311 or 2314 

- removes user terminal from CP control and attaches it as a dedicated device to 

an existing virtual 2701, 2702, or 2703 line 

- at completion of interrupt processing, searches for pending job (CPEXBLOK 

queues, interrupted user, higher priority user), then either loads 
runnable user or enters idle condition, after totaling times in various 
states 

- at system ABEND; takes core dump of CP and performs a software re-IPL 

- calls PAGFREE to obtain pages for CP common buffer space, called Free Area 

- maintains and allocates units of system free storage, with minimum 

fragmentation 

- analyzes and records selected I/O errors and retries CP-generated I/O to 

selector channel devices 

- receives control from the I/O new PSW, determines further action, and normally 

exits to IOTASK block's TASKIRA 

- virtual memory resident; simulates and interprets various IPL sequences for 

several devices 

- processes the CP console function "LINK" used by CMS for file sharing 

- counts the number of spool file blocks awaiting processing and returns address 

of a message to caller 

- allocates free storage control blocks and machine resources required in 
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MRIOEXEC 


MVIOEXEC 

PACK 

PAGEGET 

PAGTR 

PAGTRANS 

PRIVLGED 

PROGINT 


PSA 

QOEVIO 

RDCONS 

RDSCAN 

RECFREE 

RBSINT 

SAVECP 


SCANUNIT 

SCHEDULE 

SCREDAT 
STCONS - 

TMPSPACE 
TRACER - 
URSTIO 

UNTRANS - 

USERLKUP 

USEROFF 


VIOEXEC 

VSERSCH 

WRTCONS 


setting up and logging in a new user 

- entered from unit record interrupt; completes reading of cards, printing and 

punching of pending data in disk buffers 
handles all virtual I/O operations to user's multiplexer channel, including 
terminal and spooling functions 

- packs and unpacks blanks from the spooling data used by MRIOEXEC and MVIOEXEC 

- allocates and deallocates DASD areas for paging 
~ handles page sharing and page releasing 

- handles all paging functions (virtual address translation, storage key 
setting, etc.) 

simulates privileged instructions 

- entry from program interrupt new PSW; determines type of interrupt (CP-issued 

simulated instruction, or user-issued privileged instruction) and takes 
appropriate action 

- handles SVC, external, and machine check interrupts 

- queues selector channel I/O requests, checks channel availability, positions 

DASD access arms, and initiates I/O operations 

- creates a CCW "package", according to terminal type, that can be scheduled as 

a read request for that terminal 

- determines whether a virtual DASD device is currently attached to the virtual 

machine of an active user (that is, a "link" exists) 

- handles spooling requests for available disk records in much the same way as 

free storage handles main memory 

- performs virtual systems reset when explicitly asked or when implied by an IPL 

request 

- writes core-image of CP-67 onto system residence volume at end of card or tape 

load of CP-67 into core; procedure is reversed at IPL time (read in core 
image) 

for a real or virtual device address, scans appropriate list and sets up 
pointers to various level blocks 

maintains real timer and runnable list chains at logon and logoff and clock 
maintenance at 60 second intervals. 

- contains 10 bytes of EBCDIC for system identification 

starts an I/O request to a console or queues it if there are outstanding 
requests (entry via PRIMSG gives priority in the stack) 

- dynamically allocates DASD cylinders from devices of specified type 
performs analysis and output formatting of user specified tracing functions 

unstacks and reflects virtual I/O interrupts from both selector and 
multiplexer devices 

computes from hardware CSW the virtual CSW to be reflected to the user 

- finds the entry in the U.DIRECT file for a specified userid 

- functions associated with logging off a user from the system (initiate logout 

sequence, delete virtual machine from system, log user off, detach 
nonshared I/O device) 

- intercepts virtual I/O commands; itself handles selector channel requests and 

passes multiplexer requests on to MVIOEXEC 

- searches RDEVBLOK's for a given volume serial number 

- allows a remote terminal to be used for output as though it were an operator's 

1052 console; creates a CCW package according to terminal type, that can 
be scheduled as a write request for that terminal. 
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Table 3. System Modules with Entry Points 


Module Name 

Entry Point (s) 

ACCTON 

ACCTON 

ACNTIME 

ACNTIME 

ACNTOFF 

ACNTOFF, DEVOFF 

CCWTRANS 

CCWTRANS, VSMCPIR, CP6IRA 


CFSCOM 

WNG, MSG, READY, LOGOUT, SLEEP, DISCONN 

CFSDBG 

DCP, DUMP, DMCP, DISPLAY, STCP, STORE 

FREEPST, FRETPST 

CFSIPL 

CFSIPL, IPLSAVE 

CFSMAIN 

BREAK, BRKRD, BRKWR, COMENTRY 

CFSPRV 

ENABLE, DISABLE, LOCKC, UNLOCK, SHUTDOWN, 

KILL, CFSACNT, CFSDIR, ABEND 

CFSQRY 

QUERY 

CFSSET 

SET 

CFSSPL 

TERM, CLOSE, XFER, SPACE, DRAIN, START, 

PURGE, SPOOL, REPEAT 

CFSTACH 

ATTACH, DETACH, CLINK 

CHKCUACT 

CHKCUACT 

CHKPT 

CHKPT 

CONSINT 

CONSINT, IDENTIFY, PREPLINE, RTN41WT, 

RTN52WT, RTN41ND, RTN52ND, 

OFFHANG, OFFENT, CPIENT 

CONVRT 

BINHEX, HEXBIN, DECBIN, BINDEC, FPCONV, 

DATETIME 

CPCORE 

CPCORE 

CPFILE 

CPFOPENR, CPFOPENW, CPFCLOSE, CPFREAD, 

READTASK, WRITTASK, CPFDLKUP, CPFDCLOS 

CPINIT 

CPINIT 

CPSTACK 

CPSTACK 

CPSYM 

CPSYM 

DEDICATE 

DEDICATE 

DIAGDSK 

DIAGDSK 

DIAL 

DIAL 

DISPATCH 

DISPATCH, DSPTCHA, DSPTCHB, DSPTCHD, 

DISDRQ, DISIO, DISACT 

DSKDUMP 

DSKDUMP 

EXTEND 

EXTEND 

FREE 

FREE, FRET, FRETR 

IOERROR 

IOERROR, VERROR, RECERROR, MCKERR, 

FINDLOG, FMTLOG, LOGRETN, FINDMC, 

FINDIO, FMTMLOG, FMTLOGM, FMTILOG, FMTLOGI 

IOINT 

IOINT, IOISTVDE, IOISTVCU 

I PL 

IPL 

LINK 

LINK 

LOGFILES 

LOGFILES 

LOGIN 

LOGON, OPMSG, AUTLOGON 

MRIOEXEC 

MRIOEXEC, RPUNCH, PRIRA, CRIRA, PUIRA, M RIDEL 

MVIOEXEC 

MVIOEXEC, MVICLPR, MVICLPN, MVICLCR, 

MVIPRINT 

PACK 

PACK, UNPACK 

PAGEGET 

PAGEGET, PAGEREL 

PAGTR 

PAGSHARE, PAGOUT, PAGFRET 

PAGTRANS 

PAGTRANS, PAGUNLOK, PAGFREE, 

DRMWAIT, WAITPAGE 

PROGINT 

PROGINT, REFLECT 

PRIVLGED 

PRIVLGED 

PSA 

SVCINT, EXTINT, MCHEKINT, SVCDUMP 

QUEVIO 

QUEVIO, QUERIO, CHFREE 

RDCONS 

RDCONS 

RDSCAN 

LINKSCAN, RDSCAN, DEVSCAN 

RECFREE 

RECFREE, RECFRET 

RESINT 

RESINT, RESIRA 

SAVECP 

SAVECP, RESTORE 

SCANUNIT 

RUNITSCN, VUNITSCN 

SCHEDULE 

SCHEDULE, SCLOCK 
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SCREDAT 

SCREDAT 

STCON 

PRIMSG, 

TBPSPACE 

TBPSPACE 

TRACER 

TRACER, 

UNSTIO 

UNSTIO 

UNTRANS 

UNTRANS, 

USERLKUP 

USERLKUP 

USEROFF 

USEROFF, 

VIOEXEC 

VIOEXEC, 

VSERSCH 

VSERSCH 

WRTCONS 

WRTCONS, 


STCONSIO 

, TMPRET, TMPERTN 
TRINT 

FREECCW 

ADSET, ADSETOUT, RELEASE, RUNRET 
VIRA 

PRIORITY, OPTIME, CLRCONS 
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ACCTON 


Module name: ACCTON 
Entry point: ACCTON 


Purpose: To provide individual 

processing and/or checking of 


installations with 
users at LOGIN time. 


the 


ability 


to add 


Entry conditions: Called from LOGIN after all other functions are complete 
message to operator and writing of LOGMSG to user. 


Exit conditions: Condition code 0 - continue. 

Condition code 1 — log off user. 

Condition code 2 or 3 - terminal read failure. 


ACNTIME 


Module name: ACNTIME 
Entry point: ACNTIME 


Purpose: This module computes the total connect, virtual, and actual CPU 

the user and prints a formatted message on the user's terminal. 

Registers 0-15 are saved upon entry to this module. 


Entry point: ACNTIME 

Entry conditions: GPR11 pointing to user's UTABLE 
Exit conditions: None 


additional 


except for 


time used by 
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ACNTOFF 


Module name: ACNTOFF 

Entry points: ACNTOFF, DEVOFF 

Purpose: To provide individual installations with a replaceable module for performing 

accounting functions at LOGOUT time. 

Entry point: ACNTOFF - punch accounting card for USER. 

Entry conditions: GPR 11 points to the UTABLE. 

Registers 0-11 are saved upon entry. 

Exit conditions: None 

Entry point: DEVOFF - punch accounting card for a dedicated device. 

Entry conditions: GPR 11 points to UTABLE; GPR 2 points to RDEVBLOK. 

Registers 0-11 are saved upon entry. 

Exit conditions: None 
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CCWTRANS 


Module name: CCWTRANS 

Entry points: CCWTRANS, VSMCPIR, CP6IRA 

Purpose: The CCWTRANS module prepares the user program channel command words for 

execution by the real machine, and creates the user program's channel status word on 
termination of the operation. 


Entry point: CCWTRANS - translate user's virtual CCW list into an eguivalent real list. 

Entry conditions: GPR 1 is 0, indicating no I/O is to be performed, or it points to the 
I0TASK block which will represent this task. GPR 6 points to the virtual device 
block (VDEVBLOK) on which the operation is to be performed. The TASKCAW entry in 
the task block points to the user's virtual CCW list. 

Exit conditions: The TASKCAW points to the real CCW list. The TASKFLAG in the task 

block indicates whether any multitrack CCW's are present. Other registers are 
preserved. 


Entry point: VSMCPIR - restart ISAM I/O operation. 

Entry conditions: GPR9 points to the IOTASK block. GPR10 points to the channel status 
word. 

Registers 0-15 are saved upon entry to VSMCPIR. 

Exit conditions: None 

Entry point: CP6IRA - restore user's virtual core to its original condition after 
executing certain OS ISAM CCW's. 

Entry conditions: Same as VSMCPIR 

Exit conditions: None 


( 
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CFSCOM 


1 


Module name: CFSCOM 

Entry points: WNG, MSG, READY, LOGOUT, SLEEP, DISCONN 


Purpose: Each entry point corresponds to a console command and contains logic for that 

command. 


Entry conditions: Register 9 is used for addressing this module, and register 12 for 

addressing a branch table located in CFSMAIN. See "Console Functions" in Section 2 
for individual command processing. 

Exit condition: Return to CFSMAIN via branch table after handling command. 


CFSDBG 


Module name: CFSDBG 

Entry points: DCP, DISPLAY, DMCP, DUMP, STCP, STORE 
Purpose: Each entry point corresponds to a console command. 


DCP - displays real core storage on the operator's console. 

DISPLAY - displays virtual core storage, etc. on the user's terminal. 

DMCP - dumps real core to the printer. 

DUMP - dumps virtual core, etc. to the user's virutal printer. 

STCP - stores into real core from the operator's console. 

STORE - stores into the user's virtual core, etc. 

Entry conditions: Register 9 is used for addressing this module, and register 12 for 
addressing a branch table located in CFSMAIN. See "Console Functions" in 
Section 2 for individual command processing. 

Exit conditions: Return to CFSMAIN via branch table after handling command. 
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CF SI PL 


Module name: CFSIPL 

Entry points: CFSIPL, IPLSAVE 


Purpose: Each entry point 

command. 


corresponds 


to a console command and 


contains logic for that 


Entry conditions: Register 9 is used 

addressing a branch table located 
for individual command processing 


for addressing this module, and register 12 for 
in CFSMAIN. See "'Console Functions" in Section 2 


Exit condition: 


Return to 


CFSMAIN via branch table after 


handling command. 


CFSMAIN 


Module name: CFSMAIN 


Entry points: 


BREAK, BRKRD, BRKWR, COMENTRY 


Purpose: The CFSMAIN module calls the user console functions and the operator functions. 

It is entered when a BREAK occurs on the user's terminal or the virtual machine goes 
idle (detected in DISPATCH). 


Entry point: BREAK - entered when a user activates the attention key. 

Entry conditions: GPR 6 points to the terminal's MRDEBLOK. GPR 10 points to the CSW 

information from the interrupt. 

Registers 0-15 are saved upon entry. 

Exit conditions: None. CONSOL exits by making the user runnable and returning to 
DISPATCH, after a BEGIN or IPL command, or if ATTN key actuated while in console 
function mode. Also exits immediately after a virtual console function. 

Entry point: COMENTRY - entered from PRIVLGED when a DIAGNOSE instruction specifying a 
virtual console function hgis been detected. 

Entry conditions: GPR2 points to a buffer containing the command line. GPR3 contains 
the number of bytes in the input line. GPR11 points to the user UTABLE. 

Registers 0-15 are saved upon entry. 

Exit conditions: GPR2 contains an error code as follows: 

0 - No errors 

4 - INVALID CP REQUEST (message not printed by CP) 

8 - BAD ARGUMENT (message not printed by CP) 

x - Code dependent upon specific function (error message usually printed by CP-67) 
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CFSPRV 


Module name: CFSPRV 

Entry points: ENABLE, DISABLE, LOCKC, UNLOCK, SHUTDOWN, KILL, CFSACNT, CFSDIR, ABEND 


Purpose: Each entry point corresponds to a console command and contains logic for that 

command. 


Entry conditions: Register 9 is used for addressing this module, and register 12 for 

addressing a branch table located in CFSMAIN. See "Console Functions" in Section 2 
for individual command processing. 

Exit condition: Return to CFSMAIN via branch table after handling command. 


CFS2RY 


Module name: CFSQRY 
Entry point: QUERY 


Purpose: Each entry point corresponds to a console command and contains logic for that 

command. 


Entry conditions: Register 9 is used for addressing this module, and register 12 for 

addressing a branch table located in CFSMAIN. See "Console Functions" in Section 2 
for individual command processing. 

Exit condition: Return to CFSMAIN via branch table after handling command. 
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CFSSET 


Module name: CFSSET 
Entry point: SET 

Purpose: Each entry point corresponds to a console command and contains logic for that 

command. 


Entry conditions: Register 9 is used for addressing this module, and register 12 for 

addressing a branch table located in CFSMAIN. See "Console Functions" in Section 2 
for individual command processing. 

Exit condition: Return to CFSMAIN via branch table after handling command. 


CFSSPL 

Module name: CFSSPL 

Entry points: TERM, CLOSE, XFER, SPACE, DRAIN, START, PURGE, SPOOL, REPEAT 

Purpose: Each entry point corresponds to a console command and contains logic for that 

command. 


Entry conditions: Register 9 is used for addressing this module, and register 12 for 

addressing a branch table located in CFSMAIN. See "Console Functions" in Section 2 
for individual command processing. 

Exit condition: Return to CFSMAIN via branch table after handling command. 
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CFSTACH 


Module name: CFSTACH 

Entry points: ATTACH, DETACH, CLINK 


Purpose: Each entry point corresponds to a console command and contains logic for that 

command. 


Entry conditions: Register 9 is used for addressing this module, and register 12 for 

addressing a branch table located in CFSMAIN. See "Console Functions" in Section 2 
for individual command processing. 

Exit condition: Return to CFSMAIN via branch table after handling command. 


CHKCUACT 


Module name: CHKCUACT 
Entry point: CHKCUACT 

Purpose: CHKCUACT will examine the last CCW executed by a channel program and decide 
whether, for the device type on which the sequence was executed, the control unit is 
freed at channel end time. 


Entry point: CHKCUACT (BALR) 

Entry conditions: Registers 0-4 are saved upon entry. GPR 6 points to the virtual channel 
block for which the input-out operation was executed. GPR 8 points to the virtual 
device block for which the operation was executed. 

Exit conditions: The condition code is set nonzero if the control unit remains busy 

after the channel end occurring on the indicated CCW operation code. It is set to 
zero if the control unit may be considered free. 
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CHKPT 


Module name: CHKPT 
Entry point: CHKPT 

Purpose: To save user accounting information and in-core spool pointers on disk 


Entry point: CHKPT 

Entry conditions: If low core location CPID (hex MFC') contains "CP67" or 
records will be written to disk; otherwise no action is taken. 

Exit conditions: If CPID does not contain "SHUT", CP-67 will be IPL'ed by 
otherwise CHKPT will enter the wait state. 


"SHUT", 

software; 
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CONSINT 


Module name: CONSINT 

Entry points: CONSINT, IDENTIFY, PREPLINE, RTN41WT, RTN52WT, RTN41ND, RTN52ND, OFFHAND, 
OFFENT, CPIENT 

Purpose: This module initializes and identifies remote terminals and processes all 

interrupts from those terminals. This module also processes all interrupts for the 
operator's 1052 console. 


Entry point: CONSINT 

Entry conditions: All 1052 console interrupts are serviced via this entry point. GPR 10 
is the location of the CSW associated with the interrupt, and GPR 6 is the MRDEBLOK 
for the interrupting device. 

Exit conditions: If the previous I/O terminated normally, another I/O is initiated. 

If only a CE has been received, an exit is made to await the DE. 

If an irregular ending occurred, error processing is initiated. 

Control is returned to DISPATCH via IOINT. 


Entry point: IDENTIFY 

Entry conditions: The terminal lines, once they are enabled, have their first interrupt 
entry at IDENTIFY. GPR 6 contains the address of the terminal's MRDEBLOK and GPR10 
points to the CSW. 

Exit conditions: The terminal is identified and its MRDEVTYP stored or it is indicated 
to be an unknown type. The line is initialized with a "Prepare" command to await an 
attention interrupt for LOGIN. 


Entry point: PREPLINE 

Entry conditions: GPR 6 points to the MRDEBLOK of a terminal of known device type 

(MRDEVTYP). The terminal line is then initialized with a "Prepare" command. 

Exit conditions: The line sits in a "prepared" state waiting for a "login" attention 

interrupt. 


Entry points: RTN41WT, RTN52WT, RTN41ND, RTN52ND 

Entry conditions: GPR6 points to a terminal MRDEBLOK of known device type that has 

completed an I/O operation by HIO, ATTN, or carriage return. 

Exit conditions: the next I/O operation is started, if any, or the line is put in 

"prepare" status. Control is returned to DISPATCH via IOINT. 


Entry points: OFFHANG, OFFENT 

Entry conditions: GPR6 points to a terminal MRDEBLOK. A message is written to the 

terminal and an interrupt return address (OFFENT) is set up. 

Exit condition: Return is made to the caller. 
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CONVRT 


Module name: CONVRT 

Entry points: BINHEX, HEXBIN, DECBIN, BINDEC, FPCONV, DATETIME 

Purpose: CONVRT is a collection of data conversion routines to assist CP-67 in 

communicating with the user. 


Entry point: BINHEX (BALR) 

Entry conditions: GPR 1 contains the number to be converted from binary to hexadecimal 
notation. 

Exit conditions: GPR’s 0 and 1 contain the converted number in hexadecimal notation with 
leading zeros not suppressed. 


Entry point: HEXBIN (BALR) 

Entry conditions: GPR 1 contains a pointer to a string of eight or fewer characters in 
hexadecimal notation (EBCDIC) which are to be converted. The length of the string 
is in GPR 0. 

Registers 0-5 are saved upon entry. 

Exit conditions: The condition code is set nonzero if an illegal hexadecimal character 
is encountered in the string; otherwise, the condition code is zero. The converted 
number is returned right-justified in GPR 1. 


Entry point: FPCONV (BALR) 

Entry conditions: GPR 2 contains a pointer to a doubleword which contains the floating 
point word to be converted to standard floating point notation (for example, 
.00000000000 E 00) and GPR 1 contains a pointer to an output buffer of at least 17 
characters. 

Registers 0-5 are saved upon entry. 

Exit conditions: The routine will fill the buffer pointed to by GPR 1 with the number in 
standard floating point notation. 


Entry point: BINDEC (BALR) 

Entry conditions: GPR 1 contains a binary number to be converted to the equivalent in 
decimal notation. 

Exit conditions: BINDEC returns the low-order eight decimal digits in GPR's 0 and 1. 


Entry point: DECBIN (BALR) 

Entry conditions: GPR 1 points to a field containing the EBCDIC form of a decimal number 
which is to be converted to binary equivalent. GPR 0 contains the length of this 
field (in bytes). 
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Exit conditions: The condition code is set nonzero if the specified string contains 

invalid decimal information or a resultant number greater than 2**31—1 or the string 
length exceeds 15; otherwise, the condition code is set to zero. The converted 
number is returned in GRP 1. 


Entry point: DATETIME (BALR) 

Entry conditions: GPR 1 points to a field into which the date will be entered (as 

mm/dd/yy). GPR 2 points to a field into which the time will be entered (as 
hh.mm.ss). The date and time data are obtained from their locations in CPU low 
memory. If either pointer is zero, that parameter will not be provided. 

Exit conditions: The fields are filled in as specified. 


CPCORE 


Module name: CPCORE 
Entry point: CPCORE 

Purpose: Contains only constants, no executable code. Currently contains constants for 

the I PL command, (DASDIPL - disk address of IPL module, DASDIPLN - disk address of 
SYSTEM module, and CMSTABLE - table for CMS shared system) . 
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CPFILE 


Module name: CPFILE 

Entry points: CPFOPENR, CPFOPENW, CPFCLOSE, CPFREAD, READTASK, WRITTASK, CPFDLKUP, 
CPFDCLOS 

Purpose: CPFILE is the mechanism by which CP-67 reads the various internal working disk 

files required, for example, system and user file directories and machine 
description files. Various routine entries are provided to allow opening, reading, 
and closing various files. 

Entry point: CPFOPENR - open a file for reading. 

Entry conditions: GPR 3 points to an eight-character file name. 

Registers 0-8 are saved upon entry. 

Exit conditions: GPR 2 points to a Control Program File System (CPFS) block which will 
be used to control access to the file. ( Note : this must be preserved for later use 
in calling for actual file input-output) . 

Entry point: CPFOPENW - open a file for writing. 

Entry conditions: This routine is not implemented yet - its calling conditions will be 
identical to CPFOPENR. 

Registers 0-8 are saved upon entry. 

Exit conditions: None 

Entry point: CPFREAD - read data from a previously opened file. 

Entry conditions: GPR 0 contains the number of bytes to be read. GPR 2 points to the 
CPFS block which was provided when the file was opened (see CPFOPENR). 

Registers 2-7 are saved upon entry. 

Exit conditions: GPR 1 points to the desired data (which resides in a CPFS-owned buffer) 
or zero if an end^of-file condition was encountered. 

Entry point: CPFCLOSE - close a previously opened file. 

Entry conditions: GPR 2 points to the appropriate CPFS file descriptor block. 

Registers 0-5 are saved upon entry. 

Exit conditions: None 

Entry point: READTASK 

Entry conditions: GPR 1 points to a buffer at least CPRECSZ bytes long (currently 829 
bytes). GPR 2 points to the real device block. GPR 3 points to the record to be 
read (as BBCCHHR). 

Registers 0-15 are saved upon entry. 
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IOERROR is 


Exit conditions: None. If the operation was not completed successfully, 

called to attempt recovery. 

Entry point: WRITTASK - perform a write operation to disk. 

Entry conditions: Same as READTASK 

Exit conditions: Same as READTASK 

Entry point: CPFDLKUP - finds specified directory entry. 

Entry conditions: GPR 3 points to an eight-character file name. 

Registers 3-6 are saved upon entry. 

Exit conditions: Condition code=0 for file found, and GPR 1 points to DIRECTORY 
CPFRECRD; GPR 2 points to DIRECTORY CPFDENT. Otherwise, condition code=1 for file 
not found, and GPR 2 points to first empty entry. 

Entry point: CFDCLOS - closes open directory file. 

Entry conditions: GPR 2 points to CPFFDBLK. 

Registers 0-3 are saved upon entry. 

Exit conditions: None 

CPINIT 

Module name: CPINIT 

Entry point: CPINIT 

Purpose: This is the CP-67 initialization module. Its function is to create the 

necessary control blocks such as CORTABLE and allocation tables based upon the 
hardware configuration present. For a detailed description of the functions 
performed see the section "Control Program Initialization" in Section 2. 

Entry point: CPINIT 

Entry conditions: GPR 2 contains a pointer to the allocation table address of the system 
residence volume. GPR 6 contains the device address of the residence volume. 

Exit conditions: Exits to DISPATCH. 


( 
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CPSTACK 


Module name: CPSTACK 
Entry point: CPSTACK 

Purpose: This routine queues requests for CP execution (CPEXBLOKs) on the request stack 

(CPRQFST) defined in DISPATCH. 


Entry point: CPSTACK - queue the CPEXBLOK (BALR) 

Entry conditions: Reqister 0-3 are saved upon entry. GRP 1 points to a CPEXBLOK. 
Exit conditions: None 


CPSYM 


Module name: CPSYM 
Entry point: CPSYM 

Purpose: The CPSYM module does not contain executable code. It is an in-core load map 

of the CP-67 nucleus. It contains the EBCDIC name and hex address of each CP module 
as well as some of the more important entry points and control words. 


DEDICATE 


Module name: DEDICATE 
Entry point: DEDICATE 

Purpose: This module creates from CP-67 free storaqe a set of RCHBLOK, RCUBLOK, and 

RDEVBLOK control blocks to define a dedicated (nonshared) multiplexer device. The 
control blocks are chained on to the existinq chain of control blocks pointed to by 
RCHSTART. The MRDEBLOK is flaqqed (in MRDEFLAG) as beinq dedicated (MRIDED); the 
UTABLE address of the owning user is stored in MUSER. 


Entry conditions: GPR 11 contains the UTABLE address. 
GPR 1 contains the real device address. 

Exit conditions: 

Successful: Condition code 0 - GPR 1 contains the 

address of the RDEVBLOK created. 
Unsuccessful: Condition code 1 - Nonexistent real 
device 

Condition code 2 - Device in use 
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DIAGDSK 


Module Name: DIAGDSK 
Entry Point: DIAGDSK 

Purpose: This module is entered from PRIVLGED when a user has issued a diagnose call for 
a specialized I/O task to be performed on a 2311 or 2314. DIAGDSK checks for 
various calling errors; if none is present, an I/O task is constructed and scheduled 
for execution by calls to QUERIO and DISPATCH. Upon completion, a condition code of 
0 indicates to the user that the I/O has been completed with no errors (no CSW being 
returned to the user). Errors are signalled to the user as indicated below. The 
use of DIAGDSK for simple I/O provides a significant speed improvement for CMS or 
other users who have a CCW string of similar format. 


Entry point: DIAGDSK 

Entry conditions: GPR5 points to user's "R1", which must hold the device address. GPR4 
points to user's "R2", which must point to a CCW-string of the following format: 

(1) SEEK BBCCHHR (below) 

(2) SEARCH BBCCHHR+2 (below) 

(3) TIC BACK TO SEARCH 

(4) READ OR WRITE OF UP TO 4096 BYTES 

(up to 824 bytes for CMS) 

(5) NO-OP 

(6) BBCCHHR SEEK/SEARCH ARGUMENTS (7 bytes) 

Exit Conditions: (Upon return to user via DISPATCH) 

Condition-Code (CC) = 0: I/O complete with no errors. 

CC = 1: SIO failed, CSW stored. 

(CSW+4 S CSW+5 returned to user) 

CC = 2: Either an attempt to write on a read-only disk 
(program-check returned to user) 
or 

other I/O error on completion 
CSW (8 bytes) returned to user 
(sense bytes available if user does a 'SENSE') 

CC = 3: Not attached, neither 2314 nor 2311, 
or invalid DIAGNOSE call by user. 

Error-code returned to user in his R15, as follows: 

1 = Not attached (error from VUNITSCN in CP) 

2 = Device is neither 2314 nor 2311 

3 = Pointer to user's CCW-string not dbl-word aligned 

4 = SEEK/SEARCH arguments not within user core 

5 = Read/write CCW neither read (06) nor write (05) 

6 = Read/write byte-count = 0 

7 = Read/write byte-count greater than 4096 

8 = Read/write buffer not within user core 

9 = Condition-code 2 (busy) on actual SIO 

as attempted by CP 

10 = Condition-code 3 (not operational) on actual SIO 
as attempted by CP 
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DIAL 

Module name: DIAL 
Entry point: DIAL 

Purpose: Attaches user's terminal as a dedicated device to an existing virtual 2701, 

2702, or 2703 line in the virtual machine specified. The UTABLE and MVDEBLOK are 
returned to free storage and the user terminal is removed from CP control. 

Entry conditions: Entry is from LOGIN after a DIAL command. Registers 0-11 are saved 

upon entry. GPR 10 points to an eight-character userid. GPR 11 points to a UTABLE. 

Exit conditions: If successful, GPR 11 is set to zero. 
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DISPATCH 


Module name: DISPATCH 

Entry points: DISPATCH, DSPTCHA, DSPTCHB, DSPTCHD, DISACT, DISDRQ, and DISIO 

DISPATCH is entered when some process has been completed or cannot continue any further 
until some other event has completed (an I/O operation). It updates the user's 
control blocks to reflect his current status. If a user was running, DISPATCH 
attempts to restart him. If it cannot restart the running user or if there was 
none, DISPATCH will degueue any CP-67 deferred work reguests and start them. When 
all CP requests are exhausted DISPATCH will run the highest priority, runnable, and 
in queue user if there is one, or it will enter enabled wait state. 


Entry point: DISPATCH 

Entry conditions: GPR 11 points to a valid UTABLE to be charged for time spent in CP-67 
since the last charge. 


Entry point: DSPTCHA 

Entry conditions: Same as DISPATCH except entered after processing a program interrupt 
from a running user where processing has not changed the virtual PSW. 


Entry point: DSPTCHB 

Entry conditions: Same as DISPATCH 


Entry point: DSPTCHD 

Entry conditions: Same as DISPATCH except entered to drop a user from runnable state 
after a virtual TIO to a busy device. 


Entry point: DISACT (BALR) 

Entry condtions: Charge user for CPU time used since last charge. Called when a routine 
has changed the status of a user. 

Exit conditions: None. 


Entry point: DISDRQ - drop a user from a queue (called) 

Entry conditions: GPR 11 points to user to be dropped from a queue. 
Exit condtions: None. 


Entry point: DISIO (called) 

Entry conditions: GPR 11 points to user that has had his status changed. Called by 
routines which have updated a user's status and are not returning or going -to 
DISPATCH (either directly or indirectly), with GPR 11 pointing to this user. 
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DSKDUMP 

( - 


Module name: DSKDUMP 
Entry point: DSKDUMP 

Purpose: This module is entered from module PSA when CP-67 issues an SVC 0 ABEND, on 

activation of the PSW restart button, or from PROGINT for a system program check. 
The module contains code to dump core to a printer, tape or disk. The dump will 
be of all core or of only those pages marked as *CP* or FREE in the CORTABLE 
depending on the current SET DUMP command setting. 


Entry point: DSKDUMP 

Entry conditions: General registers are stored at GREGS. 

Exit conditions: An exit is taken by performing a software re-IPL of the system. 


EXTEND 


Module name: EXTEND 
Entry point: EXTEND 

Purpose: EXTEND is used to obtain a number of pages for CP-67 common buffer space 

called Free Area. The first time EXTEND is called, it initializes the free storage 
area by accessing a table, EXT 1, to indicate the number of pages required, depending 
upon the real machine core size. Subsequent calls to EXTEND are to enlarge free 
storage temporarily. EXTEND calls PAGFREE repeatedly to get these pages. It is 
called by FREE. 


Entry point: EXTEND 

Entry conditions: Registers 0-15 are saved upon entry. 

Exit conditions: GPR 1 points to an area which may be incorporated into the free storage 
zone. GPR 0 contains the length of this area in bytes. 
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FREE 


(See Figure 46 for an overview of FREE processing.) 

Note: &TRACE (4) option must be chosen at system generation time in order to gather 

statistics in FREE/FRET. 


Module name: FREE 

Entry points: FREE, FRET, FRETR 

Purpose: To maintain and allocate units of system free storage, with minimum 

fragmentation. Free storage is utilized by CP-67 for I/O tasks, CCW strings, 
buffers—in fact, for all but real channel-control unit-device blocks, CORTABLEs, 
and save areas. 

The most frequently used storage block sizes, some 29 in number, constituting about 
99% of all FREE/FRET calls, have been allocated into ten subpools. All FREE/FRET 
calls for the doubleword block size listed in the left column below receive the 
corresponding doubleword block in the right column: 

Number of double words Subpool size actually 

called for used 


1 1 


2 or 

3 

3 

4 


4 

5 


5 

6, 7 

or 8 

8 

9 or 

10 

10 

11 - 

14 

14 

15 - 

18 

18 

19 - 

23 

23 

24 - 

29 

29 


A block from the subpool chain is given priority in a call to FREE for a subpool 
size; a block is selected from the regular free storage chain only if none is 
available from the subpool chain, or if the call to FREE is for a block greater than 
29 doublewords. A FRET call, likewise, is checked for subpool size; if it 
corresponds, the block returned is patched into the chain on a LIFO 
(last-in-first-out) basis, that is, push-down stack. 

A special entry, FRETR, enables CPINIT and EXTEND to bypass subpool consideration 
whether or not the block being returned is subpool size. 

Various statistical information is now kept in the FREE routine, starting at 
entrypoint FREELIST. The code for statistical information can be removed by 
revision of a SETA symbol, if speed of performance takes precedence over statistics 
gathering: by assigning SETA a value of 1, statistics are included; a value of 0 
causes their removal. The following is a partial list of pointers, counters, and 
statistical quantities of interest (the names in parentheses are labels of these 
quantities) : 

. end of highest subpool block given out (ENDSUB) 

. address of lowest regular block given out (BEGINREG) 

. end of free area in lower core (ELOFREE) 

. beginning of free area in high core (BHIFREE) 

. subpool FRET calls requiring regular FRET (SBFRTREG) 

. table of pointers to subpools (SUBTABLE) 

. number of times subpools returned (SUBRETN) 

. number of times EXTEND is called (EXTCALL) 
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Other statistical quantities (for debugging and operations research, only) 
. maximum value attained by FREENUM (MFREENUM) 

. FREE/FRET calls for sizes not in subpools (FREEUSED,FRETUSED) 

. counts of satisfied and unsatisfied FREE subpool calls (SUBFREE, USUBFREE) 
. count of successful FRET subpool calls (SUBFRET) 

Statistical counters for each subpool size 

. number of subpool blocks in use; number left (SUBLEFT) 

. maximum value attained by SUBUSED (MSUBUSED) 

. cumulative times spent in FREE and FRET (TIMEFREE,TIMEFRET) 

. count of subpool-range sizes referenced (SIZEREF) 


Entry point: FREE - allocate a region of free storage (BALR) 

Entry conditions: GPR 0 contains the number of doublewords requested. 

Registers 0-15 are saved upon entry. 

Exit conditions: GPR 1 contains a pointer to the region of the size requested. This 

region will always be on a doubleword boundary. 

Entry point: FRET - return a region to free storage (BALR) 

Entry conditions: GPR 0 contains a count of the number of doublewords being returned. 
GPR 1 contains a pointer to the initial doubleword of the region. This pointer must 
always be on a doubleword boundary. 

Register 0-15 are saved upon entry. 

Exit conditions: None. No reference may be made to a region after it has been returned to 
free storage. 

Entry point: FRETR - return a region to free storage. Same as FRET except does not 
attempt to use subpool logic (BALR) 

Entry conditions: Same as FRET 

Exit conditions: Same as FRET 
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Enter 


Figure 46. 



CP-67 FREE (1 of 2) 
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IOERROR 


Module name: IOERROR 


Entry points: IOERROR, VERROR, RECERROR, MCKERR, FINDLOG, FMTLOG, LOGRETN, FINDMC, 
FINDIO, FMTMIOG, FMTLOGM, FMTILOG, FMTIOGI 


Purpose: The IOERROR routine analyzes and retries CP-generated I/O errors incurred while 
paging, spooling, or reading the directory. Selected I/O errors and machine check 
errors are recorded on the SYSRES volume at a predefined location. Warning messages 
are sent to the operator when repeated I/O errors occur on a device used by CP-67 
for paging, spooling, or directory space. The routine also contains code to locate 
and/or format the error-recording records to be used. The locate function is 
initiated by CPINIT. The format function (actually erasing any previous data) is 
performed by a special diagnose code executed by a privilege class C user only. 


Entry point: IOERROR 

Entry conditions: Registers 0-11 are saved. GPR 6 contains a pointer to the real device 
block for the device on which the error occurred. GPR 9 contains a pointer to the 
IOTASK block which did not execute properly. 

Exit conditions: If retry is successful, control returns to the program which issued the 
original I/O request (return address in TASKIRA). If 64 retries of the I/O are all 
unsuccessful, exit is to the dispatcher, and the system will ABEND. 


Entry point: VERROR 

Entry conditions: Registers 0—11 are saved. GPR 8 contains a pointer to the virtual 

device block. 

Exit conditions: None 


Entry point: RECERROR 

Entry conditions: Called by IOERROR and VERROR. Registers 0-11 are saved. 

Exit conditions: The appropriate counter in the real or virtual device block will be 

updated to reflect the error. If the error is the first of its type to be 
encountered for this device, or the error counter overflows, the CE LOGREC will be 
updated to reflect the latest error. 


Entry point: MCKERR 

Entry conditions: Entered whenever a machine check occurs, whether in supervisor or 

problem state. Registers 0-11 are saved. 

Exit conditions: Return is to the machine check interrupt handler, MCHEKINT. 


Entry point: FINDLOG 

Entry conditions: Called by CPINIT. Registers 0-11 are saved. 
Exit conditions: Returns to caller 
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Entry point: FMTLOG 

Entry conditions: Called by FINDLOG and "Diagnose" by customer engineer to clear and 

format CE cylinder. Registers 0-11 are saved. 

Exit conditions: If successful, return to caller. If permanent I/O error, system will 
ABEND. 


IOINT 


Module name: IOINT 

Entry points: IOINT, IOISTVDE, IOISTVCU 

Purpose - IOINT receives control from the I/O new PSW. It saves the state of the running 
user's machine, if any, and determines what further action is required. In normal 
processing, an exit is taken to the IOTASK block's TASKIRA. 

If the &TRACE (2) and/or the &TRACE(3) options are selected in the LOCAL COPY file, then 
the IOINT module also generates entries in the selector and/or multiplexor trace table 
respectively. 


Entry point: IOINT 

Entry conditions: Receives control from the I/O new PSW. 

Exit conditions: Exits through a call to TASKIRA followed by a transfer to DISPATCH with 
GPR 11 pointing to the chargeable user. 

Entry point: IOISTVCU - increment control unit pending count (BALR) 

Entry conditions: GPR 6 points to a virtual channel block. 

Exit conditions: None. 

Entry point: IOISTVDE - increment device pending count and control pending count if 
device count was zero (BALR) 

Entry conditions: GPR 7 points to a virtual control unit block and GPR 6 points to a 
virtual channel block. 
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IPL 


IPL 


Module name: 

Entry point: IPL 

Purpose: Ihe IPL module is responsible for simulation and correct interpretation of 

various IPL sequences supported for several devices. It is unique in that it 
resides in virtual memory. The virtual memory location is the page boundary closest 
to half the virtual memory size or page X'20000', whichever is the smaller. 


Entry point: IPL 

Entry conditions: The IPL module resides in virtual memory and its parameters are passed 
by the control program through the use of the first 24 bytes of page zero of that 
virtual memory. (Note: Since the IPL sequence destroys these bytes on the real 
machine, no alteration of behavior from the real machine is seen.) The information 
passed consists of (1) the virtual device address and (2) the virtual device type 
code. 

Exit conditions: The IPL module transfers control to the system just IPL'ed via user's 
lower core location zero. 
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LINK 


LINK 


Module name: 

Entry point: LINK 

Purpose: To dynamically attach virtual DASD devices based 

on a machine description entry (MDENT) found in the 
appropriate machine description file. Supports the LINK 
console function. Called from CPSTACH, link command. 


Entry point: LINK 


Entry conditions: 

GPR 1 points to a parameter list as follows: 

DC CL8•userid',CL8'password',XL2'XXX',XL2'YYY' 
where XXX is the virtual address to be found 
in the directory, and YYY is the address to 
be used in attaching the device. 

GPR 2 contains zero for read-only access, 1 
for read/write access. 

GPR 11 contains UTABLE address of requesting user. 


Exit conditions: 

GPR 2 contains an error code as follows: 

0 - Successful, attached as requested 
1,2 - Not used 

3 - 'userid' found, address XXX not in directory 

4 - Device YYY already attached 

5 - Password is bad or the device is not shareable 

for the given access mode 

6 - 'userid' is in INLOGON state 

7 - A write link to XXX already exists. LINK denied. 

8 - The required volume is not mounted or not 

attached to system 

9 - Attached in read-only, not in write as requested 

10 - 'userid' not in directory 

11 - Address XXX not a DASD device 

12 - Directory locked 

13 - Attached in read-only; user 'linked to' has it in write. 
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LOGFILES 


Module name: LOGFILES 
Entry point: LOGFILES 

Purpose: This module counts the number of spool file blocks awaiting processing for the 

user and returns the address of a message to the caller. Called by LOGIN and CFSQRY 
(queue files command) . 

Entry point: LOGFILES 

Entry condition: Registers 0-15 are saved upon entry. GPR 11 points to user's OTABLE. 
Exit condition: None 
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LOGIN 


Module name: LOGIN 


Entry points: 


LOGIN, OPMSG, AUTLOGON 


Purpose: The LOGIN module is 

creating from free storage 
machine resources. 


responsible for setting up and logging in 
those control blocks required and allocating 


a new user, 
the required 


Entry point: LOGIN - to log in a new user. 

Entry conditions: GPR 6 contains a pointer to the M RDEBLOK desiring entrance to the 

system. 

Registers 0-15 are saved upon entry. 

Exit conditions: GPR 11 contains the address of the new user UTABLE if the logon was 

successfully completed; otherwise GPR 11 contains zero. 


Entry point: OPMSG - Inform system operator of 


Entry 

conditions: 

GPR 

11 contains 

add 


CL4' OFF' or 

CL4 ' 

ON ' . 



Registers 0- 

11 are 

saved upon 

entry 

Ex it 

conditions: 

None 




LOGIN, LOGOUT activity. 
UTABLE; GPR 7 contains 


character string 


Entry point: AUTLOGON - sets 
and joins standard logon 


up pointers for automatically logging on a specified user, 
code. Called from CPINIT. 


Entry conditions: 

Registers 0- 
Exit conditions: 


Same as LOGIN 
5 are saved upon entry. 
Standard LOGIN exit 
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MR10 EXEC 


Module name: MRIOEXEC 

Entry points: MRIOEXEC, RPUNCH, PRIRA, CRIRA, PUIRA, MRIDEL 

Purpose: These routines are entered when an interrupt occurs on the unit record 

equipment. Far a reader interrupt, all of the cards are read and stored. For a 

printer or punch interrupt, the corresponding disk buffer is checked, and if there 
is pending data in the buffers, it is printed or punched. 


Entry points: MRIOEXEC, PRIRA, PUIRA, CRIRA 

Entry conditions: All of these entries are entered from IOINT on the appropriate 
interrupt. GPR 6 contains the address of the corresponding MRDEBLOK, and GPR 10 
contains a pointer to a doubleword of CSW information from the interrupt. 

Exit conditions: After performing their functions, all entry points return to DISPATCH 
with GPR 11 pointing to the user for whom the input-output operation was beina 
processed. ’ 


Entry point: RPUNCH 

Entry conditions: GPR 4 points to the buffer containing the 
punched. 

Exit conditions: The accounting information is punched when 


Entry point: MRIDEL 

Entry conditions: GPR 1 points to an SFBLOK for a file to be deleted. 

Exit conditions: The spool file will be deleted as soon as the delete mechanism is 

available. If the delete mechanism is busy, the SFBLOK is queued for deletion as 
soon as the current files are finished. 


accounting information to be 
a punch is available. 
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MVIOEXEC 


Module name: MVIOEXEC 


Entry points: MVIOEXEC, MVICLPR, MVICLPN, MVICLCR, MVIPRINT 


Purpose: The 

multiplex 


MVIOEXEC module handles all virtual input-output operations 
er channel. This includes terminal and spooling functions. 


to the user's 


Entry point: MVIOEXEC - handle virtual input-output requests to the multiplexer. Called 
by VIOEXEC. 

Entry conditions: GPR 9 contains the virtual device address. The user's virtual CAW is 
pointing to the virtual CCW list. 

Exit conditions: The user's condition code is set to reflect the status of his virtual 
device. 


Entry points: MVICLPR, MVICLPN - close printer and punch files. 

Entry conditions: GPR 8 contains the address of the virtual device block for which the 
file is to be closed. 

Exit conditions: If there was an open file, it is closed; that is, it is put in the 

closed file chain, and real output is initiated if the corresponding device is 
available. 

Entry point: MVICLCR - close file on card reader. 

Entry conditions: Same as for MVICLPR 

Exit conditions: If there was an open file, it is closed; that is, any remaining data in 
that file is discarded and the next file, if any, is made accessible. 

Entry point: MVIPRINT - print a line on the virtual printer. 

Entry conditions: GPR 1 is the address of a buffer containing data for printer output. 
GPR 0 contains the byte count of the data. 

Exit conditions: Data is packed and put in the spooled file. 
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PACK 


Module name: PACK 

Entry points: PACK, UNPACK 

Purpose: To pack and unpack blanks from the spooling data used by MBIOEXEC and MVIOEXEC. 

Entry point: PACK - compress blanks from input data. 

Entry conditions: GPR 1 is the address of a byte containing input data count, followed 
by the input data. GPB 2 is the address of the output buffer. 

Registers 0-7 are saved upon entry. 

Exit conditions: First byte of output buffer contains output data count, followed by 

output data. 

Entry point: UNPACK 

Entry conditions: GPR 1 contains the address of the input buffer, in the same format as 
the output buffer for PACK. GPR 2 contains the address of the output buffer. 

Registers 0-6 are saved upon entry. 

Exit conditions: The unpacked data appears in the output buffer. 


PAGEGET 

Module name: PAGEGET 

Entry points: PAGEGET, PAGEREL 

Purpose: The module handles DASD storage requirements for paging. 

Entry point: PAGEGET - allocate space for one page. Called by PAGTRANS. 

Entry conditions: None. Registers 0-12 are saved upon entry. 

Exit conditions: GPR 1 contains device index and DASD address, if found. If not found, 
GPR 1 contains 0. 

Entry point: PAGEREL - release paging DASD area for this user. Called by PAGOUT. 

Entry conditions: GPR 11 points to this user's UTABLE and registers 0-12 are saved upon 
entry. GPR 5 points to a SWPTABLE entry containing the address of the record to 
be released. 

Exit conditions: None 
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PAGTR 


Module Name: PAGTR 

Entry points: PAGOUT, PAGFRET, PAGSHARE, PPAGOUT 

Purpose: This module handles page sharing and page releasing. 

Entry point: PAGOUT - remove a user's pages from core. Called from CFSIPL or USEROFF. 
Entry conditions: GPR 11 points to the UTABLE of the user whose pages are to be released. 

Registers 0-13 are saved upon entry. 

Exit conditions: None. 

Entry point: PAGFRET 

Entry conditions: GPR 2 points to first page to be made available for users, and GPR 0 is 
count of pages. 

Exit conditions: None. 

Entry point: PAGSHARE - called by CONSOL for first user of a named system to bring into 
core and lock any shareable pages. 

Entry conditions: GPR 1 = first shared page number; GPR 5 = PAGTABLE address; GPR 6 = 

count of saved pages; GPR 7 = address of first entry of saved SWPTABLE; GPR 11 = 
UTABLE address. 

Registers 1-7 are saved upon entry. 

Exit conditions: None. All required pages are in core and locked. 

Entry point: PPAGOUT - remove a subset of a user's pages from core. 

Entry conditions: GPR 3 contains the address of a segment table entry. 

GPR 5 contains the address of the SWPTABLE entry for the first page. 

GPR 7 contains the address of the PAGTABLE entry for the first page. 

GPR 8 contains the number of pages to be released. 

GPR 11 points to the UTABLE of the user whose pages are to be released. 

Exit conditions: None. 
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PAGTRANS 


Module name: PAGTRANS 

Entry points: PAGTRANS, PAGUNLOK, PAGFREE, WAITPAGE, DRMWAIT 
Purpose: This module handles all paging functions. 

Entry point: PAGTRANS - translate virtual address and bring page in, if required. 

Entry conditions: GPR 1 contains the virtual byte address. GPR 2 contains control 
parameters in byte 3 as follows: BRING, to bring the page into core; LOCK, to lock 
the page in core (implies BRING); DEFER, to prevent return to caller until page is 
in core; CHANGE, to set changed bit for this page; USED, to set used bit for this 
page. 

Registers 0-15 are saved upon entry. 

Exit conditions: GPR 2 contains the real byte address. 

Entry point: PAGUNLOK - unlock a virtual page (BALR) 

Entry conditions: GPR 2 contains a real byte address within the page to be unlocked. 

Registers 0-7 are saved upon entry. 

Exit conditions: None 

Entry point: PAGFREE - obtain free page for free storage. Called by EXTEND. 

Entry conditions: None. Registers 3-11 are saved upon entry. 

Exit conditions: GPR 1 points to the page address which can be included in the free 

area. 

Entry point: WAITPAGE - reflects completion of page I/O. Called by IOINT. 

Entry conditions: GPR 9 points to IOTASK; GPR 10 points to CSW. 

Registers 0-15 are saved upon entry. 

Exit conditions: None 

Entry point: DRMWAIT - After a 2301 drum paging interrupt, stacks CPREQUEST blocks for 
each additional page if the I/O operation involved more than one page. Chains 
together any IOTASKS queued off the allocation block and calls QUERIO. 

Entry conditions: GPR 9 points to IOTASK; GPR 10 points to CSW. 

Exit conditions: Transfers to WAITPAGE. 
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PRIVLGED 


Module Name: PRIVLGED 

Entry points: PRIVLGED, FREEPST, FRETPST 

Purpose: Provide non-I/O privileged instruction simulation. 

If the 6TRACE (5) option is selected in the LOCAL COPY file, then the PRIVLGED module 
accumulates statistics in low core (defined in STAT COPY) about the number and type of 
privileged instructions executed. 

Entry point: PRIVLGED 

Entry Conditions: R13 points at the real address of the privileged instruction. 

Exit conditions: Via a GOTO to VIOEXEC if the instruction is for I/O or to DISPATCH 
after the instruction is simulated. 

Entry point: FREEPST - creates real copies of virtual 67 page tables. 

Entry conditions: Register 11 points to UTABLE. 

Registers 0-4 are saved upon entry. 

Exit conditions: None. 

Entry point: FRETPST - releases real copies of virtual 67 page tables. 

Entry conditions: Register 11 points to UTABLE. 

Registers 0-5 are saved upon entry. 

Exit conditons: None. 
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PROGINT 


Module name: PROGINT 

Entry points: PROGINT, REFLECT 

Purpose: PROGINT is entered from the program interruption new PSW. It attempts to 

determine whether the interruption occurred from the Control Program, or the user 
issuing a privileged instruction; in the latter case, control is passed to PRIVLGED, 
which interprets and simulates user-issued privileged instructions. 


Entry point: PROGINT 

Entry conditions: PROGINT is entered from the program interrupt new PSW. 

Exit conditions: 

If the interruption occurred as the result of a program interruption in the 
Control Program indicating program trouble, a terminal system dump occurs. If the 
program interruption was the result of a user issuing a privileged operation (the 
usual condition), control is passed to PRIVLGED. 


Entry point: REFLECT - reflect an interrupt to the user. 

Entry conditions: GPR 13 points to the old PSW for the interruption condition which is 
to be reflected. The user's registers have already been saved. 

Exit conditions: After making changes in the user's UTABLE to reflect the interrupt, 

REFLECT transfers control to DISPATCH with GPR 11 pointing to the affected user. 

Note: The use of register 13 in this case to point to the proper old PSW is a deviation 

from standard calling sequence practice. 
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PSA 


Module name: PSA 

Entry points: SVCINT, EXTINT, MCHEKINT, SVCDUMP 

Purpose: To initialize and maintain the save areas provided as a part of the calling 

protocol maintained within CP-67. SVCINT is entered by the SVC interrupt 
occurring, indicating a request for linkage or return by a CP-67 module. Also 
handles external and machine check interrupts. 

If the STRACE (1) option is selected in the LOCAL COPY file, then PSA also places entries 

in a trace table for CP SVC's. 


Entry point: SVCINT 

Entry conditions: Entered via an SVC 0, 8, 12, 16, or 20 to perform, respectively, DIE, 

LINK, RETURN, RELEASE, or SAVEGET. 

Exit conditions: See "SVC Interruptions" in Section 2. 


Entry point: EXTINT 

Entry conditions: Entered from the external interrupt new PSW. If the interrupt 
occurred because of the external interrupt pushbutton, the system operator is 
disconnected. This allows him to log in again from an alternate console. If the 
interrupt occurred because of a timer interrupt, the running user, if any, is 
saved, and an exit is taken to DISPATCH to determine whether there is any work. 

Exit conditions: Exits to DISPATCH under normal conditions with GPR 11 pointing to the 
interrupted user. 


Entry point: MCHEKINT 

Entry conditions: Upon detection of a hardware malfunction. 

Exit conditions; After printing warning messages, if machine check was in CP-67 mode, 
terminate all processing. If machine check was in user mode, the user is 
informed that a machine check has occurred. The machine check is reflected back 
to the virtual machine, which is placed in CP console function mode; this enables 
a console function to be issued. 


Entry point: SVCDUMP - branched to from within PSA on an SVC 0 or entered from a PSW 
restart. Branches to DSKDUMP to abnormally terminate. 

Entry conditions: None 

Exit conditions: None 
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fiUEVIO 


Module name: QUEVIO 

Entry points: QUEVIO, QUERIO, CHFREE 

Purposes: This module queues requests for input-output operations on the selector 

channels, determines whether the channels are available, prepositions access arms on 
direct access devices, and initiates the input-output operations. 


Entry point: QUEVIO - queue virtual task block (EALR) 

Entry conditions: GPR 1 points to an IOTASK block which is to be queued. GPR 2 points to 
the virtual device block. 

Reqisters 0-14 are saved upon entry. 

Exit conditions: None. Transfer is to CHFREE, to initiate operation of the task. 


Entry point: QUERIO - queue real task block (BALR) 

Entry conditions: GPR 1 points to an IOTASK block which is to be queued. GPR 6 points 
to the real device block on which the input-output operation is being performed. 

Registers 0-14 are saved upon entry. 

Exit conditions: None. Transfer is to CHFREE, to initiate operation of the task. 


Entry point: CHFREE - start idle channel (BALR) 

Entry conditions: GPR 1 points to a real channel block for which input-output operations 
are to be initiated, if possible. 

Registers 0-14 are saved upon entry. 

Exit conditions: None. If the operation can be started, a zero condition code from the 
SIO operation causes the user to be removed from the IOWAIT condition if the 
operation originated from a virtual machine. For a nonzero condition code, CHFREE 
calls the TASKIRA with the condition code indicated in GPR 0. CHFREE can also call 
itself recursively if it determines that the operation just initiated has freed the 
channel. 
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RDCONS 


Module name: RDCONS 
Entry point: RDCONS 

Purpose: This module creates a CCW "package" (according to the type of terminal it is 

servicing) that can be scheduled as a read request for that terminal. It allows the 
different remote terminals to be treated as though each were a 1052. 


Entry point: RDCONS 

Entry conditions: Registers 0-10 are saved upon entry. GPR 1 contains the address of the 
input buffer (132 bytes). GPR 2 holds the options that are requested when RDCONS is 
called: EDIT, or UCASE. If EDIT is specified, character or line deletions are 

performed as specified. If UCASE is specified, all lowercase letters are translated 
to equivalent uppercase letters. GPR 3 contains the address to which the Control 
Program will return control after completion of the console I/O. GPR 11 points to 
the UTABLE of the user to whom the read is directed. 

Exit conditions: The return is made from RDCONS immediately with all registers restored. 
At the termination of the read operation, GPR 0 contains the byte count of the input 
message; GPR 2 contains an error condition code, if any. Control is returned to the 
address specified in GPR 3 at the call to RDCONS. 
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RDSCAN 


Module name: RDSCAN 

Entry points: LINKSCAN, RDSCAN, DEVSCAN 

Purpose: To determine whether a virtual DASD device is currently attached to the virtual 

machine of an active user (that is, a "link" exists). Definition: Two virtual 
devices having the same RDEVBLOK and relocation factor are the same. 


Entry point: LINKSCAN 

Entry conditions: GPR 11 is the UTABLE address of the current user, not to be included 
in the search. GPR 10 is the UTABLE address of the first user to be scanned. 
Registers 0-9 are saved upon entry. GPR 0 is the relocation factor of the virtual 
device, and GPR 1 is the address of the RDEVBLOK. 

Exit conditions: 

Condition code 0 - No link exists. 

Condition code 1 - Read-only link(s) exists. 

Condition code 2 - Read/Write link exists. 

GPR 10 is the UTABLE address of the user having the link. For no link, GPR 10 is 
egual to GPR 11. 

Entry point: RDSCAN 

Entry conditions: Same as LINKSCAN 

Exit conditions: Same as LINKSCAN except that if all links are read-only, no return is 
made until all user machines have been examined or a read/write link is encountered. 

Entry point: DEVSCAN 

Purpose: To determine whether any link exists to the real device regardless of the 

relocation factor. 

Entry conditions: Same as LINKSCAN except GPR 0 is not used. To include current user in 
search, set GPR 10 egual to GPR 11. 

Exit conditions: 

Condition code 0 - No link exists. 

Condition code 3 - A link exists. GPR 10 points to 

UTABLE of first link encountered. 


244 


CP-67 Program Logic Manual 




RECFREE 


Module name: RECFREE 

Entry points: RECFREE, RECFRET 

Purpose: To handle the spooling requests for available disk records in much the same 

manner as free storage handles main memory. 


Entry point: RECFREE - obtain free record. 

Entry conditions: None. Registers 2-6 are saved upon entry. 

Exit conditions: GPR 0=1; GPR 1 is the address of a doubleword containing the DASD 
record address and device code in the following format: bytes 0—1 are zero; bytes 
2-3 contain the cylinder number; bytes 4-5 contain the track number; byte 6 contains 
the record number; and byte 7 contains the device code. 


Entry point: RECFRET - return disk record to free storage. 

Entry conditions: GPR 1 contains the address of a doubleword in the RECFREE format. 

Registers 0-7 are saved upon entry. 

Exit conditions: None 


RESINT 


Module name: RESINT 

Entry points: RESINT, RESIRA 

Purpose: This module performs a virtual 


system reset. 


Entry point: RESINT 

Entry conditions: GPR 11 points to the UTABLE of the user for whom the reset is desired. 
Registers 0-11 are saved upon entry. 

Exit conditions: None 


Entry point: RESIRA - interrupt return address set by RESINT for IOTASKS queued up for a 
user to be reset; clears interrupt without resetting virtual machine status; entered 
from IOINT. 

Entry conditions: GPR 9 points to IOTASK. RIO points to CSW. Registers 0-11 are saved 
upon entry. 

Exit conditions: None 
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SAVECP 


Module name: SflVECP 

Entry points: SAVECP, RESTORE 

Purpose: SAVECP writes the core image of CP-67 onto the system residence volume at the 
end of a card or tape load of CP-67 into core. At IPL time, RESTORE reads in the 
core image of CP-67 from the system residence volume. 


Entry point: SAVECP 

Entry conditions: The module requires that the disk address be loaded with it, and that 
the device be a 2311 or 2314. The addressability of the module is contained in GPR 
3 (not 12 as in the norm). 

Exit conditions: After a SAVECP-save a DISK LOAD OK message is printed. 


Entry point: RESTORE - restore CP nucleus into main memory (BALR) . 
Entry conditions: same as SAVECP except called by CHKPT. 

Exit conditions: None. 


SCANUNIT 


Module name: SCANUNIT 

Entry points: RUNITSCN, VUNITSCN 

Purpose: To accept a device address, either real or virtual, and scan down the 

appropriate list, setting up pointers to the various level blocks. 


Entry point: RUNITSCN - scan for real device block (BALR). 

Entry conditions: Registers 0-8 are saved upon entry. GPR 8 contains the address to be 
searched for. 

Exit conditions: GPR 6 contains the pointer to the real channel block, if found. GPR 7 
contains a pointer to the real control unit block, if found. GPR 8 contains a 

pointer to the real device block, if found. The condition code is set as follows: 

0 - all blocks found 

1 - channel block not found (no pointers valid) 

2 - control unit block not found (channel pointer valid) 

3 - device block not found (channel and control unit pointers valid) 

Entry point: VUNITSCN - scan for virtual device block (BALR). 

Entry conditions: Registers 0-8 are saved upon entry. GPR 8 contains the address to be 
searched for. GPR 11 points to the user whose blocks are to be searched. 

Exit conditions: Same as for RUNITSCN except pointers are to virtual blocks. 
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SCHEDULE 


Module name: SCHEDULE 

Entry points: SCHEDULE, SCLOCK 

Purpose: Contains extended DISPATCH functions. 

Entry point: SCHEDULE 

Entry conditions: R1 is non-zero if the UTABLE pointed to by R11 is in logon and is to be 
added to the real timer chain if that option is specified. Otherwise, R1 is zero and 
the R11 UTABLE is in logoff and it is to be removed from all chains that it 
currently may be on. 

Exit conditions: None. 

Entry point: SCLOCK 

Entry conditions: Entered once a minute on a call from DISPATCH to update the decimal 
clock and to recalculate the paging activity variable. Also once an hour it resets 
the elapsed binary timer and any other locations dependent oh its current value. 


Exit conditions: 


None. 


SCREDAT 

Module Name: SCREDAT 

Purpose: Contains system identification information that may be changed for each system 
created. 
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STCONS 


Module name: STCONS 

Entry points: PRIMSG, STCONSIO 

Purpose: This module will start an I/O request to a console or queue it if there are 

outstanding requests. If entered via PRIMSG, the request is queued ahead of all 
current outstanding requests. 


Entry point: STCONSIO 

Entry conditions: GPR 6 contains the address of the console I/O request to be started or 
added. GPR 8 contains the device address and GPR 11 points to the appropriate user's 
UTABLE. 

Exit conditions: The request is queued in FIFO order on the CIOREQ chain and if the 

terminal is idle the operation is started immediately. 


Entry point: PRIMSG 

Entry conditions: Same as STCONSIO 

Exit conditions: Same as STCONSIO, except the request is queued on the CIOREQ chain in 
LIFO order. 
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TMPSPACE 


Module name: TMPSPACE 

Entry points: TMPSPACE, TMPRET, TMPERTN 

Purpose: TMPSPACE dynamically allocates cylinders on DASD devices from devices of a 

specified type. 


Entry point: TMPSPACE - obtain free cylinder. 

Entry conditions: Registers 0—11 are saved upon entry. GPR 0 

contiguous cylinders desired. GPR 1 contains the desired 
contains the type of space desired (for example, paging or 
space, or directory space). 

Exit conditions: GPR 0 contains the relocation factor of the allocated cylinder. GPR 1 
points to the RDEVBLOK of the selected device. If space is not available, GPR 1 is 
set to zero. 


Entry point: TMPRET - return a cylinder to free storage. 

Entry conditions: Registers 0—11 are saved upon entry. GPR 0 contains the relocation 

factor of the allocated cylinder. GPR 1 points to the appropriate RDEVBLOK. GPR 2 
contains the number of contiguous cylinders. 

Exit conditions: None 

Entry point: TMPERTN - interrupt return address for an IOTASK that erases TRK 00 of a 
T-DISK that has been released; entered from IOINT. 

Entry conditions: Registers 0-11 are saved upon entry. GPR 9 points to IOTASK. GPR 10 
points to CCW. 

Exit conditions: None 


contains the number of 
device type code. GPR2 
spooling space, T-disk 


Section 5: System Modules 249 




TRACER 


Module Name: TRACER 
Entry points: TRACER, TRINT 

Purpose: This module handles the analysis and formatting of user specified tracing 

functions. Tracing is controlled by a table extension to the UTABLE. This table is 
located by the UTREXT entry in the UTABLE. The trace functions are controlled by a 
one-byte switch named TRSW defined in the UTABLE. The trace extension block called 
TREXT is defined in the UTABLE COPY. It contains control words, storage areas, and 
output buffers for the trace function. The TREXT block is 25 double words in size. 


Entry point: TRACER - output trace data 

Entry conditions: GPR1 contains the address of the 

Exit conditions: The buffer is cleared to all (132) 
and/or printer output. 


Entry point: TRINT - trace interrupt 

Entry conditions: 

GPR1 - virtual old PSW address 

GPR3 - interrupt code 

GPR4 - SVC extended interrupt code 

GPR6,7 - SVC extended old PSW contents 

Exit conditions: Trace buffer has been formatted and 
necessary instructions have been restored and any 
set. The virtual machine PSW is ready to run from 


printed by calling TRACER. All 
"trace-following" SVC's have been 
the correct location. 


output buffer. 

blanks after being passed for console 


UNSTIO 

(See Figure 47 for an overview of UNSTIO processing.) 


Module name: UNSTIO 

Entry point: UNSTIO 

Purpose: To unstack and reflect virtual input-output interrupts from both selector and 

multiplexer devices, and to unstack and reflect virtual external interrupts. 

Entry point: UNSTIO 

Entry conditions: Registers 1-8 are saved upon entry. GPR 11 points to a user who has at 
least one enabled interrupt condition. 

Lxit conditions: The user's UTABLE and virtual page 0 have been altered to reflect the 
appropriate interrupts. 
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Figure 47. 


CP-67 UNSTIO (1 of 4) 
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ure 47. CP-67 UNSTIO (3 of 4) 
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UNTRANS 


Module name: UNTRANS 

Entry points: UNTRANS, FREECCW 


Purpose: The module computes from the hardware CSW the virtual CSW to be reflected to 

the user. The real CCW's are released to free storage. 


Entry point: UNTRANS (BALR) 

Entry conditions: Registers 0-12 are saved upon entry. GPR 6 points to the VCHBLOK which 
contains the CSW. 

Exit condition: The VCHBLOK contains the translated CSW. 


Entry point: FREECCW 

Entry conditions: Registers 0-12 are saved upon entry. GPR 8 points to the user's 
VDEVBLOK, and GPR9 points to the IOTASK block. 

Exit conditions: All I/O pages are unlocked, the RHA data is relocated, and the real CCW 
lists have been released. 


USERLKUP 


Module name: USERLKUP 
Entry point: USERLKUP 

Purpose: To find the entry in the U.DIRECT file for a 

specified userid. 


Entry conditions: 

Registers 0-5 are saved upon entry. 

GPR 1 points to an eight-byte userid. 

GPR 2 points to a buffer of size greater than or egual 
to UFDENTLN (the size of the UFDENT DSECT) . 


Exit conditions: 

Condition code nonzero: Userid found in directory. 

Caller's buffer contains a copy of 
the user file directory entry (DSECT 
UFDENT). 

Condition code zero: Userid not found. 
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USEROFF 


Module name: USEROFF 

Entry points: USEROFF, ADSET, ADSETOUT, RELEASE, RUNRET 

Purpose: The USEROFF module handles the details of logging a user off the system. 


Entry point: USEROFF, ADSET - initiate the logout sequence. 

Entry conditions: GPR 11 points to the user's UTABLE. Registers 0-10 are saved upon 

entry. GPR 2 is set to 1 if the logoff is forced (line error or hangup). GPR 2 is 
set to 2 if called by KILL or SHUTDOWN. Otherwise, GPR 2 is set to zero. 

Exit conditions: INLOGOFF bit is set in VMSTATUS and normal exit taken. 


Entry Point: ADSETOUT - log user off the system. 

Entry conditions: User has no outstanding I/O operations. 
Registers 0-10 are saved upon entry. 

GPR 11 points to the user's UTABLE. 

Exit conditions: GPR 11 contains zero. 


Entry point: RELEASE - detach a nonshared input-output device. 

Entry conditions: GPR 11 points to the user UTABLE. GPR 2 points to the R DEV BLOK of the 
device to be detached. If the device is a tape unit, the volume mounted is rewound 
and unloaded. If the device is a bi-sync line, the line is disabled with a hardware 
disable CCW. If the device is a dedicated multiplexer unit, the selector channel 
real I/O blocks are returned to free storage, and the original MRDEBLOK is restored 
to the list. 

Exit conditions: None 


Entry point: RUNRET - interrupt return address for an IOTASK that rewinds and unloads a 
tape, or disables a bi-sync line, after being detached. 

Entry conditions: Registers 0-15 are saved upon entry. GPR 9 points to IOTASK. GPR 10 
points to CSW. 

Exit conditions: None 
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VIOEXEC 


( 


Module name: VIOEXEC 
Entry points: VIOEXEC, VIRA 

Purpose* VIOEXEC is responsible for intercepting virtual input-output commands and 
determining how they will be handled. It performs operations required for handling 
selector channel requests and passes multiplexer requests onto MVIOEXEC. 


Entry point: VIOEXEC 

Entry conditions: GPR 4 points to the first half of the input-output instruction which 
caused entry to VIOEXEC. GPR 5 points to the second half. The virtual CAW will 
point to the virtual CCW list to be executed. 

Registers 0-10 are saved upon entry. 

Exit conditions: Goes to DSPTCHB. The condition code in the virtual PSW is set as 

follows: 

0 - I/O initiated or performed 

1 - CSW stored 

2 - device busy 

3 - device not operational 

Entry point: VIRA - generalized interrupt return address for IOTASK performing 

user-dedicated I/O operations; sets condition and stacks a virtual pending 
interrupt. 

Entry conditions: GPR 9 points to IOTASK. GPR 10 points to CSW. 

Registers 0-15 are saved upon entry. 


VSERSCH 


Module name: VSERSCH 
Entry point: VSERSCH 

Purpose: Searches RDEVBLOK•s for a given volume serial number. 


Entry point: VSERSCH 

Entry conditions: Registers 0-11 are saved upon entry. GPR 1 points to a six-byte field 
containing the volume serial label desired. 

Exit conditions: GPR 1 points to the desired RDEVBLOK. If the given label is not 

currently recognized by the system, this register will be zero. 
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WRTCONS 


Module name: WRTCONS 

Entry points: WRTCONS, PRIORITY, OPTIME, CLRCONS 

Purpose: This module allows each remote terminal to be used for output as though it were 
an operator's 1052 console. It will create a CCW package for a specific terminal 
(with a priority status, if requested) . 


Entry point: WRTCONS 

Entry conditions: GPR 0 contains the byte count of the output message (must be nonzero). 
GPR 1 contains the starting address of the output message (see DFRET note below). 
GPR 2 contains 0 or parameters as follows: NORET specifies that no return is to be 

made on completion of the operation, that is, GPR 3 (below) is not set up. ALARM 
specifies that the audible alarm is to be given, if available, at the completion of 
the operation. DFRET causes the output buffer to be automatically returned to free 
storage at the completion of the operation. (Note: In this case, the data in GPR's 

3 and 1 must be appropriate for return to the FRET routine; that is, GPR 1 is on a 
doubleword boundary, and GPR 3 contains the number of doublewords to return to free 
storage.) OPERATOR specifies that the message is to go to the operator's terminal. 
GPR 11 need not be established for this call. NOAUTO specifies that the message is 
to be written without an automatic carriage return following the message. GPR 3 
contains the return address, if NORET was not specified. It contains the number of 
doublewords to be returned to free storage if NORET and DFRET were specified. 
Registers 0-4 are saved upon entry. 

Exit conditions: An immediate return is made 
completed. All registers are saved here, 
contains an error code, if any. Return 
location specified by GPR 3. 


Entry point: PRIORITY 

Entry conditions: Same as for WRTCONS 

Exit conditions: Same as for WRTCONS, except that the console write is requested to be 
queued ahead of any other currently stacked I/O for that terminal. 


Entry point: OPTIME - writes time of day to operator's terminal. 
Entry conditions: Registers 0-15 are saved upon entry. 

Exit conditions: None 


Entry point: CLRCONS - clear CIOREQ stack. 

Entry conditions: Registers 0-4 are saved upon entry. 
Exit conditions: CIOREQ stack pointer cleared. 


from WRTCONS before the operation is 
Upon completion of the operation, GPR 2 
(if NORET was not specified) is to the 
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UTILITY MODULES 


The CP-67 utility modules, all of which are stand-alone except for VDUMP, are provided as 
follows: 

DIRECT - writes the user file directories onto SYSRES volume; allocates space 
on DASD devices used as system device. 

FORMAT - formats DASD devices used as system device. 

SAVESYS - writes a pageable core image copy of an operating system, such as 
CMS, which is run in a virtual machine under CP-67; enables the saved 
operating system to be IPL’ed by name. 

VDUMP - runs in a virtual machine to retrieve any system ABEND dumps from the 
system disk. 
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DIRECT 


Utility module name: DIRECT 

Entry point: DIRECT 

Purpose: The DIRECT program writes the user file directories onto the system residence 

volume and allocates space on that volume and other volumes which are to be used for 
permanent file residence, paging, and spooling. 

Entry point: DIRECT 

Entry conditions: Entered from stand-alone loader. No other entry conditions. 

Exit conditions: Sets WAIT state PSW after completion of all allocation and directory 
creation activities, and termination message to operator console. 


FORMAT 

Utility module name: FORMAT 

Entry points: FORMAT 

Purpose: To format any DASD device that CP-67 uses for a system device (that is, for 

residence, paging or spooling). Currently those devices are 2311, 2314, 2303, and 

230 1. 

Entry point: FORMAT 

Entry conditions: All reguired variable data is collected by the program interrogating 
the operator for (1) device type, (2) device address, (3) volume label, (4) start 
address (optional), and (5) end address of cylinders or tracks to be formatted. 

Exit conditions: Program prints FORMAT ENDS. 
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SAVESYS 


Utility module name: SAVESYS 
Entry point: SAVESYS 

Purpose: This module is used to write a pageable core image copy of an operating 

system such as CMS, which is run in a virtual machine under CP-67. The operating 
system (such as CMS) is IPL'ed on a bare machine, with an appropriate address stop 
set. Then the program SAVESYS is IPL'ed from the card reader. The control card 
describes the core limits to be saved and the CP owned volume device and cylinder 
address of where to save it. OS and CMS volumes do not have the correct format for 
the CP allocation label in record 3 and an attempt to recognize OS or CMS labels as 
owned volumes will result in an ABEND, (see Operator's Guide for procedure). 

The module SYSTEM has to be set up to reflect the page numbers and cylinder 
addresses where the core image was saved. This allows the user to IPL the virtual 
system by name, such as: 

IPL CMS 

The advantage of IPL'ing by name is in speed since it requires less I/O and paging 
than normal IPL. Moreover, in order to share CMS system pages among users, it is 
necessary to IPL by name. 


VDUMP 


Utility module name: VDUMP 
Entry point: VDUMP 

Purpose: This module runs in a CMS virtual machine specially configured to retrieve the 

system ABEND dumps from disk. Only the user specified for a SYSDUMP in the SYSGEN 
macro can operate this program. That user's virtual machine must have defined in 
the CP-67 directory a special spool file reader defined as: 

UNIT 0 F1,RPRT 

as well as a standard CMS machine. VDUMP will reside on that user's P-disk. The 
program uses the special reader (0F1) to access any system dumps. The dump input is 
then formatted and printed on the CMS printer (00E), which is spooled. As VDUMP 
proceeds, it prints a message indicating each 10,000 bytes of core printed as: 

DUMPING STORAGE LOCATION XXXX 

Upon completion, VDUMP prints END OF DUMP and closes the virtual printer. 
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APPENDIX A: SAVE AREAS 


( 


Register 13 normally points to a 96-byte save area. The first 12 bytes are reserved 
for use by the SVC handler for keeping linkage information. Modules normally use the 
next 12 to 16 words for saving the registers of the calling routine (the ENTER macro 
generates an STM of the specified register(s) into an area whose beginning is displaced 
12 bytes off register 13). The remaining bytes are optionally used as a work area. The 
first word of an active save area will contain the interrupt return address in the 
calling routine. The second word contains the caller's register 12, and the third word 
the caller's register 13. Very seldom are more than registers 0 through 11 saved since 
(1) 14 and 15 are normally work registers, and (2) 12 and 13 have already been saved by 
the SVC handler. Inactive save areas will contain a pointer to the next inactive area in 
the first word of the save area. A word in the SVC handler points to the first available 
(inactive) save area. 

Note: In OS, register 13 normally points to a 20-word save area for use by the 
called routine. If a called routine wishes to call, it will provide core or dynamically 
obtain core for its called routine's save area. In CP-67, register 13 points to a save 
area for the currently active routine, containing the saved registers of the calling 
routine and the necessary linkage information to return. The maintaining of linkage 
information and chains for active and available save areas is all done by the SVC 
handler. There is one exception to this rule: in CFSMAIN, the routine obtains its own, 
extra large save area, and it temporarily replaces the normal save area in the chain with 
the extra large one. 
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APPENDIX B: REGISTER OSAGE 


Register 


0 variable (many times count of doublewords for FREE or FRET linka 

1 variable (many times pointer to temporary storage obtained from 

2 CALL macro parameters if PARM is used 

3-5 variable 


6 

variable 

(I/O 

routines 

use 

commonly 

as 

channel 

block pointer) 

7 

variable 

(I/O 

routines 

use 

commonly 

as 

control 

block pointer) 

8 

variable 

(I/O 

routines 

use 

commonly 

as 

device 

block pointer) 


9-10 variable 

11 pointer to the user's status table (UTABLE) for the user CP is currently working 
on 

12 base 

13 save area pointer 

14 variable (some use as BAL, BAS, etc. within particular modules) 

15 variable (address of entry point of currently active module or last called 
module, set by CALL macro) 


ge 

FREE) 


Registers 0 and 1 are commonly used to pass arguments to subroutines. Registers 14 and 15 
are not preserved over a subroutine call and therefore should not be used for any but 
very temporary use. 
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APPENDIX C: 


CORE LAYOUT 


The following items are of particular importance in debugging CP-67. For a complete 
description of lower core see the listing of EQU67 COPY file from the CPMAX macro 
library. (EQU67 is listed in "CP-67 Eguate Package - EQU67" in Section 3: Programming 
Conventions of this manual.) 

See Figure 48 for a diagram of real low core. 


Hexadecimal 

Address 


0 Eight-byte PSW restart 

E External old PSW interrupt code 

10 SVC old PSW interrupt code 

12 Program old PSW interrupt code 

14 Machine check old PSW interrupt code 

16 I/O old PSW interrupt code 

160 UTABLE address of the currently active or last 

run user 

340 Address of CPSYM module. CPSYM contains a twelve- 

byte entry for each CP module, an eight-byte 
EBCDIC name, and a four-byte ADCON. 

CPEND Address variable depending on system, represents 

highest address of permanently resident CP 
code. Beginning on the first 32-byte aligned 
boundary following CPEND is the CORTABLE, one 
16-byte entry for each 4K page in the machine. 
Following the CORTABLE, beginning on the first 
following 32-byte boundary are the initial 100 
96-byte save areas. 
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000 


IPLPSW 


008 

010 

018 

040 

048 

050 

058 

080 

160 

168 

170 

178 

180 

188 

190 

198 

1 AO 

1A8 


1 ___ 

IPLCCW 

EXT. INT. CODE 

SVC INT. CODE 

PROG. INT. CODE 

MCK. INT. CODE 

I/O INT. CODE 






OLD PSW'S 


CSW 


CAW 


TIMER 


NEW PSW'S 


SCANOUT 


RUNUSER 

CPSTATUS 

MONTHS 

DAYS 

YEARS 

HOURS 

MINUTES 

SECONDS 


STARTIM 

STARTIM 

BINTIME 

DISPSW 

ASYSWRM 

ASYSINF 

ASYSCNSL 

CPID 

ARMXST 

ARDEVT 

AZVOL 

APRINT 

APUNCH 

AREADERS 

AMREAL 

ARCHSTRT 


Figure 48. CP-67 Real Low Core (1 of 2) 
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APPENDIX-Dj._CP-67 ABEN D 


The first occurrence to check for in an ABEND dump is an SVC 0 (a halfword zero in 
the SVC interrupt code at location hex 10), and supervisor state in the SVC old PSW (PSW 
at hex location 20 does not contain problem state bit, bit 01, byte 1). There are two 
possible SVC 0's which should be eliminated before proceeding any further: (1) an SVC 0 
issued by the machine check handler when there has been a machine check while in 
supervisor state, and (2) the SVC 0 issued by the command handler in response to the 
operator command D_U_M_P. 

If an SVC 0 is not found, the second possibility to check for is a program interrupt 
in supervisory mode. The program old PSW (hex address 28) will not contain the problem 
state bit. 

The third possibility is that the operator has pushed the STOP and PSW RESTART 
buttons on the CPU. In this case there should be additional information provided by the 
operator on what CP-67 was doing to force the operator to take an ABEND dump. 
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APPENDIX E 


CP-67 MEASUREMENT HOOKS 


( 

Lpw_Core (defined in EQU67) 

RUNUSER - running user 

MONTHS, DAYS, YEARS, HOURS, MINUTES, SECONDS - 

current date and time accurate to one second 
STARTIM - system IPL date and time 
BINTIME - binary timer; one hour elapsed time 
RUNINTIM - binary timer; one second elapsed time 
LOCKOUNT - number of "locked" pages 
MAXLOCK - maximum number of "locked" pages 
CPTIME - CPU time in supervisor state 
PROBTIME - CPU time in problem state 
WAITTIME - CPU time in wait state 
OVERHEAD - supervisor time not charged to users 
WAITIDLE - wait time system idle 
WTPAGE - wait time while paging 
KPGEX - count of paging exceptions 
PGREAD - pages read in 
PGSWAP - pages written out 
QCOUNT - pages stolen from in Q users 
INSTWRD1 - installation counter 
INSTWRD2 - installation counter 
INSTWRD3 - installation counter 
INSTWRD4 - installation counter 


Low_Core (defined in STAT) 


STATUEXT 

STATUSVC 

STATUPGM 

STATUIOI 

STATSSK 

ST ATISK 

STATSSM 

STATLPSW 

STATDIAG 

STATDDSK 

STATSIO 

STATTIO 

STATHIO 

STATTCH 

STATWRD 

STATSTMC 

STATLRA 

STATLMC 

STATDSP 


user external interrupts 

user SVC interrupts 

user program interrupts 

user I/O interrupts 

user SSK instructions 

user ISK instructions 

user SSM instructions 

user LPSW instructions 

user DIAG instructions 

user diagnose disk I/O instructions 

user S10 instructions 

user TIO instructions 

user HIO instructions 

user TCH instructions 

virtual 67 user WRD instructions 

virtual 67 user STMC instructions 

virtual 67 user LRA instructions 

virtual 67 user LMC instructions 

count of calls to CKUSR in DISPATCH 
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User_Data (defined in UTABLE) 

TIMEUSED - total CPU time user 
TIMEON - login time (MMDDYYHHMMSS) 
PRIORIT - priority to enter Q 
VTOTTIME - virtual CPU time used 
UPIOCNT - pages read while in queue 
UVIOCNT - virtual SIO count 
VMUSER1 - installation counter 
VMUSER2 - installation counter 
VMUSER3 - installation counter 
VMUSER4 - installation counter 
VMSSIO - selector channel SIO 
VMPNCH - spool cards punched 

VMLINS - spool lines printed 

VMCRDS - spool cards read 

VMPGRD - pages read 


D ISP ATCH 

RUMUSERS - current logged in user count 


MVIOEXEC 

VMIO - total user MPX SIO count 


2UEVI0 

VIOCOUNT - total user SIO count 
RIOCOUNT - total CP SIO count 


274 


CP-67 Program Logic Manual 








SVC8 lINK 
SVCI? Rf TURN 
SVC 16 RflfAtt 
SVC20 GC TSAVEAR(A 













APPENDIX F: CP-67 CONTROL BLOCKS 
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APPENDIX_G: ALPHABETICAL LISTING OF SYSTEM MODULES BY ENTRY PO INT 


Entry Point 

Module 

Entry Point 

Module 

ABEND 

CFSPRV 

EXTINT 

PSA 

ACCTON 

ACCTON 

FINDIO 

IOERROR 

ACNTIME 

ACNTIME 

FINDLOG 

IOERROR 

ACNTOFF 

ACNTOFF 

FINDMC 

IOERROR 

ADSET 

USEROFF 

FMTILOG 

IOERROR 

ADSETOUT 

USEROFF 

FMTLOG 

IOERROR 

ATTACH 

CFSTACH 

FMTLOGI 

IOERROR 

AUTLOGON 

LOGON 

FMTLOGM 

IOERROR 

BINDEC 

CONVRT 

FMTMLOG 

IOERROR 

BINHEX 

CONVRT 

FORCE 

PLACE 

BREAK 

CFSMAIN 

FORCEA 

PLACE 

BRKRD 

CFSMAIN 

FPCONV 

CONVRT 

BRKWR 

CFSMAIN 

FREE 

FREE 

CCWTRANS 

CCWTRANS 

FREECCW 

USERLKUP 

CFSACNT 

CFSPRV 

FREEPST 

CFSDBG 

CFSDIR 

CFSPRV 

FRET 

FREE 

CFSIPL 

CFSIPL 

FRETPST 

CFSDBG 

CHFREE 

QUEVIO 

FRETR 

FREE 

CHKCUACT 

CHKCUACT 

HEXBIN 

CONVRT 

CHKPT 

CHKPT 

IDENTIFY 

CONSINT 

CLINK 

CFSTACH 

IOERROR 

IOERROR 

CLOSE 

CFSSPL 

IOINT 

IOINT 

CLRCONS 

WRTCONS 

IOISTVCU 

IOINT 

COMENTRY 

CFSMAIN 

IOISTVDE 

IOINT 

CONSINT 

CONSINT 

IPL 

IPL 

CPCORE 

CPCORE 

IPLSAVE 

CFSIPL 

CPFCLOSE 

CPFILE 

KILL 

CFSPRV 

CPFDCLOS 

CPFILE 

LINK 

LINK 

CPFDLKUP 

CPFILE 

LINKSCAN 

RDSCAN 

CPFOPENR 

CPFILE 

LOCKC 

CFSPRV 

CPFOPENW 

CPFILE 

LOGFILES 

LOGFILES 

CPFREAD 

CPFILE 

LOGIN 

LOGIN 

CPIENT 

CONSINT 

LOGOUT 

CFSCOM 

CPINIT 

CPINIT 

LOG RETN 

IOERROR 

CPSTACK 

CPSTACK 

MCHEKINT 

PSA 

CPSYM 

CPSYM 

MCKERR 

IOERROR 

CP6IRA 

CCWTRANS 

MRIDEL 

MRIOEXEC 

DATETIME 

CONVRT 

MRIOEXEC 

MRIOEXEC 

DCP 

CFSDBG 

MSG 

CFSCOM 

DECBIN 

CONVRT 

MVICLCR 

MV 10 EX EC 

DEDICATE 

DEDICATE 

M VICLPN 

MVIOEXEC 

DETACH 

CFSTACH 

MVICLPR 

MV 10 EX EC 

DEVOFF 

ACNTOFF 

M VIOEXEC 

MVIOEXEC 

DEVSCAN 

RDSCAN 

MVIPRINT 

PACK 

DIAGDSK 

DIAGDSK 

OFFENT 

CONSINT 

DIAL 

DIAL 

OFFHANG 

CONSINT 

DISABLE 

CFSPRV 

OPMSG 

LOGON 

DISACT 

DISPATCH 

OPTIME 

WRTCONS 

DISCONN 

CFSCOM 

PACK 

PACK 

DISDRQ 

DISPATCH 

PAGEGET 

PAGEGET 

DISIO 

DISPATCH 

PAGEREL 

PAGEGET 

DISPATCH 

DISPATCH 

PAGFREE 

PAGTRANS 

DISPLAY 

CFSDBG 

PAGFRET 

PAGTR 

DMCP 

CFSDBG 

PAGOUT 

PAGTR 

DRAIN 

CFSSPL 

PAGSHARE 

PAGTR 

DRMWAIT 

PAGTRANS 

PAGTRANS 

PAGTRANS 

DSKDUMP 

DSKDUMP 

PAGUNLOK 

PAGTRANS 

DSPTCHA 

DISPATCH 

PREPLINE 

CONSINT 

DSPTCHB 

DISPATCH 

PRIMSG 

STCONS 

DSPTCHD 

DISPATCH 

PRIORITY 

WRTCONS 

DUMP 

CFSDBG 

PRIRA 

MRIOEXEC 

ENABLE 

CFSPRV 

PRIVLGED 

PRIVLGED 

EXTEND 

EXTEND 

PROGINT 

PROGINT 
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Entry Point 

Module 

Entry Point 

Module 

PRTINIT 

PLACE 

SLEEP 

CFSCOM 

PUIRA 

MRIOEXEC 

SPACE 

CFSSPL 

PURGE 

CFSSPL 

SPOOL 

CFSSPL 

QUERIO 

QUEVIO 

START 

CFSSPL 

QUERY 

CFSQRY 

STCONSIO 

STCONS 

QUEVIO 

QUEVIO 

STCP 

CFSDBG 

RDCONS 

RDCONS 

STORE 

CFSDBG 

RDSCAN 

RDSCAN 

SVCDUMP 

PSA 

READTASK 

CPFILE 

SVCINT 

PSA 

READY 

CFSCOM 

TERM 

CFSSPL 

RECERROR 

IOERROR 

TMPERTN 

TMPSPACE 

RECFREE 

RECFREE 

TMPRET 

TMPSPACE 

RECFRET 

RECFREE 

TMPSPACE 

TMPSPACE 

REFLECT 

PROGINT 

TRACER 

TRACER 

RELEASE 

USEROFF 

TRINT 

TRACER 

REPEAT 

CFSSPL 

UNLOCK 

CFSPRV 

RESINT 

RESINT 

UNPACK 

PACK 

RESIRA 

RESINT 

UNSTIO 

UNSTIO 

RESTORE 

SAVECP 

UNTRANS 

UNTRANS 

RPUNCH 

MRIOEXEC 

USEROFF 

USEROFF 

RTN41ND 

CONSINT 

VERROR 

IOERROR 

RTN 41WT 

CONSINT 

VIOEXEC 

VIOEXEC 

RTN52ND 

CONSINT 

VIRA 

VIOEXEC 

RTN52WT 

CONSINT 

VSERSCH 

VSERSCH 

RUNITSCN 

SCANUNIT 

VSMCPIR 

CCWTRANS 

RUNRET 

USEROFF 

VUNITSCN 

SCANUNIT 

SAVECP 

SAVECP 

WAITPAGE 

PAGTRANS 

SCHEDULE 

SCHEDULE 

WNG 

CFSCOM 

SCLOCK 

SCHEDULE 

WRITTASK 

CPFILE 

SCREDAT 

SCREDAT 

WRTCONS 

WRTCONS 

SET 

CFSSET 

XFER 

CFSSPL 

SHUTDOWN 

CFSPRV 




Obtaining a Cross-Reference Chart of CP 

To obtain a cross-reference chart of CP, run the CP nucleus text decks through the OS 
linkage editor, then run the OS utility IMBMDMAP. This produces a cross-reference listing 
of all CP control sections and entry points. An example of the OS JCL to accomplish this 
follows: 


//CALLXREF JOB CP,JOHNDOE,MSGLEVEL= 1 

//STEP 1 EXEC PGM=IEWL,PARM='LET,LIST,XREF,NCAL',REGION=160K 
//SYSPRINT DD SYSOUT=A 

//SYSLIN DD ONIT=00C LINKAGE EDITOR INPUT 

//SYSUT1 DD UNIT=SYSDA,SPACE= (1024, (200,20)) LINKEDIT WORK 

//SYSLMOD DD DSN = SSTEMP (CP) ,DISP= (,PASS) , UNIT=SYSDA , 

// SPACE= (TRK, (20,10,1)) LINKAGE EDITOR OUTPUT MODULE 

//STEP2 EXEC PGM=IMBMDMAP,REGION=100K 
//SYSPRINT DD SYSOUT=A 

//DD1 DD DSN = *.STEP 1.SYSLMOD,DISP= (OLD,DELETE) 

// 


Figure 49. 


OS JCL to Obtain CP Cross 


Reference 


Listing 
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INDEX 


*EOD* statement, DIRECT 12 
*EOU* statement, DIRECT 12 

A 

access, allowed by LINK 135 

access mode for DASD devices 28 

accounting data, system initialization 13 

accounting statistics, user 29 

ACNT command 123 

active pages 4 

ACTQ 107 

address conversions 4 

ALARM command, user terminal, MVIOEXEC 77 
ALLOC, control block format 160 
allocation, cylinder 11 
allocation table chaining 20 
analyze and record errors (RECERROR) 65 
assembly deck format, CP-67 maintenance 
147 

ATTACH command 124 

attaching a user to the system, overview 
23 


B 

BAS macro 155 

BA SR macro 155 

BEGIN command 125 

BEGIN subroutine, function 123 

BREAK subroutine, function 123 

BRING option 102 

C 

CALL macro 155 

calling sequences, subroutine 154 
card reader interrupt 36 
catalogued procedures, CP-67 maintenance 
147 

CCW, return to free storage 61 
CCW Translator, CCWTRANS 57 
CCW untranslator, UNTRANS 61 
CCWPKG, control block format 161 
CCWTRANS, flowchart 58 
CCWTRANS function 59 
CE cylinder update 65 
CFSMAIN module 123 
chaining allocation tables 20 
channel ( see multiplexer or selector) 
channel operations 
multiplexer 33 
selector 43 
CHKPT 14 

CHKPT functions 13 
class, user privilege 121 
clock ( see timer) 

CLOSE command 125 
CMS 

DUMP command 13 
use of 147 
CMS program 

CPDMPRST 13 
MINIDASD 13 


code, DIAGNOSE instruction 96 
codes, CP-67 device type 149 
command sequence translations, I/O, virtual 
computer 8 

communication terminals supported by CP-67 

1 

computer, virtual 1,3 
CONSINT, function 43 
CONSINT routine 22 
console function 
ACNT 123 
ATTACH 124 
BEGIN 125 
CLOSE 125 
conventions 123 
D_U_M_P 132 
DCP 126 
DETACH 127 
DIRECT 128 
DISABLE 128 
DISCONNECT 129 
discussion 121 
DISPLAY 129 
DMCP 126 
DRAIN 131 
DUMP 131 
ENABLE 132 
EXTERNAL 133 
IPL 133 
IPLSAVE 134 
KILL 134 
LINK 135 
LOCK 136 
LOGIN 136 
LOGOUT 137 
MSG 137 
PSWRESTART 137 
PURGE 138 
QUERY 138 
READY 139 
REPEAT 139 
RESET 139 
SET 140 
SHUTDOWN 141 
SLEEP 141 
SPACE 142 
SPOOL 142 
START 143 
STCP 143 
STORE 144 
TERMINATE 145 
UNLOCK 145 
WNG 146 
XFER 146 

console function subroutines 123 
console functions, list of commands 122 
console interrupt 22 
CONSTART subroutine, function 123 
control block definitions, CP-67 
maintenance 147 
control block formats 
CP-67 159-201 

brief description 159 
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control program initialization 13 
control statements, DIRECT ( see also 
DIRECT) 11 

converting virtual I/O operations to real 
operations, requirements 8 
core assignment, real low 268-269 
core layout, CP-67 267 

CORE statement, DIRECT 12 
core table, initialization 20 
CORTABLE 

control block format 162 
function 103 

CP, handling interrupts 82-101 
CP initiated I/C requests (paging, 
spooling) 29 
CPDMPRST 13 

CPEXBLOK, control block format 163 
CPFDENT, control block format 164 
CPFFDBLK, control block format 165 
CPFRECRD, control block format 166 
CPINIT 

flowchart 17 
function 15 

initialization of free storage 106 
CPMACS HACLIB, contents 147 
CPSAVE, flowchart 20 
CP-67 

ABEND 271 

backup operation 13 

control block relationships (diagram) 

275 

core layout 267 
device codes 149 
equate package 150 
execution control 106 
functions 3 
introduction 1 

listing of system modules by entry point 
277 

maintenance, assembly deck formats 147 

maintenance procedures 147 

measurement hooks 273-274 

module descriptions 201 

other devices supported 3 

paging activity 4 

program states 4 

real low core (illustration) 268-269 

register usage 265 

save areas 263 

spooling operations 8 

statistic counter definitions 152 

supported devices 1 

supported terminals 1 

supported Transmission Control Units 2 

system macro usage 154 

system module entry points 203 

table and control block formats 159-201 

time sharing 4 

utility modules, brief description 259 
creation of a users virtual system 10 
cross reference chart of CP, how to create 
278 

cylinder allocation 11 


D 

DASD, access modes 28 
DCP command 126 


dedicated, MPX devices 79 
DETACH command 127 

device address translation, I/O, virtual 
computer 8 
devices 

paging 6 

used by operating system-not CP-67 3 

devices supported by CP-67 1 

other 3 

DIAGNOSE, function 82 
DIAGNOSE C, Pseudo Timer 97 
DIAGNOSE function 96 
DIAGNOSE 0, dump system 96 

DIAGNOSE 1C, clear I/O error recordings 98 
DIAGNOSE 10, release pages 97 
DIAGNOSE 18, DISK I/O 98 

DIAGNOSE 20, clear machine check recordings 
98 

DIAGNOSE 4, fetch CP Locations 97 
DIAGNOSE 8, perform CP-67 console functions 
97 

DIAL request processing 81 
DIRECT 

*EOD* statement 12 
*EOU* statement 12 
CP-67 utility module 260 
OWN statement 12 
tables and files created by 10 
UNIT statement 12 
USER statement 11 
DIRECT command 128 
DIRECT utility 10 
DISABLE command 128 
DISCONNECT command 129 
disk space allocations 10 
DISPATCH function 66 
DISPATCH routine, function 106 
dispatcher, user status checking 106 
Dispatcher queues (illustration) 108 
dispatching a new user 112 
DISPLAY command 129 
DHCP command 126 
DRAIN command 131 

dropping a user from execution queue 112 
DUHP command 131 
D-U-M-P command 132 
dump/restore utility 13 
Dynamic Address Relocation feature 4 
Dynamic Address Translation, virtual 67 
operation 119 


E 

ENABLE command 132 
ENTER macro 156 

entry points, CP-67 system modules 203 
equivalence packages, CP-67 maintenance 
EQU67 150 
error record 

discussion 100 
messages 100 

error recording routine, machine check 98 

errors 65 

EXEC files 147 

execution control 106 

execution queue 109 

EXIT macro 156 
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EXTERNAL command 133 
External Interrupt 84 

External Interrupt Handler, overview 85 
EXTUTAB, control block format 167 


F 

feature. Dynamic Address Relocation 4 
features, transmission control units 2 
features and specifications, terminals 1 
FINDUSER subroutine, function 123 
flowchart 

CCWTRANS module processing 58 

CPINIT 17 

CPSAVE 20 

CP-67 CHKPT 14 

CP-67 FREE module 226 

CP-67 ONSTIO module 251 

External Interrupt 85 

I/O Interrupt Handler 30 

Machine Check Handler 99 

M R10 EXEC 34 

MVIOEXEC 51 

PAGTRANS 92 

processing in RDCONS module 38 
processing in WRTCONS module 40 
Program and FRIVLGED Interrupt handler 
87 

QUEVIO 62 

STCONS processing 42 
SVC Interrupt Handler 83 
VIOEXEC 47 
format 

ALLOC control block 160 
CCWPKG control block 161 
CORTABLE control block 162 
CPEXBLOK control block 163 
CPFDENT control block 164 
CPFFDBLK control block 165 
CPFRECRD control block 166 
CP-67 table and control block 159-201 
FORMAT, CP-67 utility module 260 
format 

error message 65 
EXTUTAB control block 167 
IOTASK control block 168 
LOGCDATA control block 169 
LOGIDATA control block 170 
LOGMDATA control block 171 
machine check error record 100 
MDENT control block 172 
MRDEBLOK control block 173 
MRIBUFF control block 175 
MVDEBLOK control block 177 
MVIBUFF control block 178 
PAGTABLE control block 179 
RCCWLIST control block 180 
RCHBLOK control block 181 
RC0BL0K control block 182 
RDCONPKG control block 183 
RDEVBLOK control block 184 
RECBUF control block 186 
SAVEAREA control block 187 
SEGTABLE control block 188 
SFBLOK control block 189 
SWPTABLE control block 190 
TRECBUF control block 191 


TREXT control block 192 
UFDENT control block 193 
UTABLE control block 194 
VCHBLOK control block 198 
VCUBLOK control block 199 
VDEVBLOK control block 200 
FORMAT utility 10 
formatting the files 10 
FREE module, flowchart 226 
FREE routine, function 104-106 
free storage management 104 
FREECCW function 61 
FRET routine function 104-106 
function 

CCWTRANS 59 
CONSINT 43 
CORTABLE 103 
CPINIT 15 
CP-67 3 

DIAGNOSE 82,96 
DISPATCH 66 
FREECCW 61 
IOERROR 45 
IOINT 45 
MVIOEXEC 76-79 
PAGTRANS 102 
PRIVLGED 46 
PROGINT 45 
QUERIO 43 
QUEVIO 61 
RDCONS 37 
RECERROR 65 
UNTRANS 61 
VIOEXEC 46 
VIRA 65 
WRCONS 39 

functions, CHKPT 13 


G 

GOTO macro 156 


H 

HIO, virtual MPX channel, MVIOEXEC 78 
HIO operation, VIOEXEC 57 


I 

IDENTIFY routine 22 
initialization 

control program 13 
core table 20 
UTABLE 25 

initiating selector channel I/O operations 
43 

input output control, other 8 
input/output operations, unit record 
devices 8 
interrupt 

console 22 
machine check 98 
paging 91 
PRIVLGED 96 
program 86 

selector channel, processing 45 
SVC 82 

Interrupt Handler, External 84 
interrupt handling 82-101 
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9 


interrupt processing, virtual computer 
interrupt reflection, table of 101 
interruption 

card reader 36 
printer 36 
punch 36 


int 

erruption re 

flection 

100 


int 

roduction to 

CP-67 

1 


I/O 

control 8 




I/O 

Interrupt H 

andler, 

flowchart 

30 

I/O 

operation, 

virtual 

computer 

8 

I/O 

operations, 

real mu 

ltiplexer 

33 

I/O 

requests 





processing 

29 




user, MPX channel 71 
IOERROR function 45 
101 NT , functions 45 
IOTASK, control block format 168 
IPL command 133 
IPLSAVE command 134 
ISAM ( see OS-ISAM) 

ISAM option 9 


K 

KILL command 134 


L 

LINK command 135 
LMC macro 155 
LOCK command 136 
LOCK option 102 

LOGCDATA, control block format 169 
LOGIDATA, control block format 170 
LOGIN command 136 

LOGMDATA, control block format 171 
LOGON routine 22 

operations performed by 22 
LOGOUT command 137 
LRA macro 155 


M 

machine check error record, format 100 
Machine Check Handler, flowchart 99 
machine check interrupt 98 
machine checks, error recording routine 
98 

machine comfigurations 1 
macro, usage by the system 154 
Main Dispatcher and Control Routine 
(DISPATCH) 66 

main storage after IPL (illustration) 16 
Main Storage Management 102 
maintenance, CP-67 147 

malfunction ( see errors) 

MCKERR, routine 98 
MDENT, control block format 172 
measurement hooks, CP-67 273-274 

MINIDASD 13 

mini-disks, definition 3 
module description 
ACCTON 205 
ACNTIME 205 
ACNTOFF 206 
CCWTRANS 207 
CFSCON 208 


CFSDBG 208 
CFSIPL 209 
CFSMAIN 209 
CFSPRV 210 
CFSQRY 210 
CFSSET 211 
CFSSPL 211 
CFSTACH 212 
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